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The Ten Commandments 


The First Commandment 

When recurring on a list of atoms, lat , ask 
two questions about it: (null? lat) and else. 
When recurring on a number, n, ask two 
questions about it: (zero? n) and else. 
When recurring on a list of S-expressions, /, 
ask three question about it: (null? /), (atom? 
(car /)), and else. 

The Second Commandment 

Use cons to build lists. 

The Third Commandment 

When building a list, describe the first typi¬ 
cal element, and then cons it onto the natu¬ 
ral recursion. 

The Fourth Commandment 

Always change at least one argument while 
recurring. When recurring on a list of atoms, 
lat , use (cdr lat). When recurring on a num¬ 
ber, n, use (subl n). And when recurring on 
a list of S-expressions, /, use (car l) and (cdr 
l) if neither (null? 1) nor (atom? (car /)) are 
true. 

It must be changed to be closer to termina¬ 
tion. The changing argument must be tested 
in the termination condition: 

when using cdr, test termination with null? 
and 

when using subl , test termination with 
zero ?. 


The Fifth Commandment 

When building a value with -0- ,always use 
0 for the value of the terminating line, for 
adding 0 does not change the value of an 
addition. 

When building a value with x, always use 
1 for the value of the terminating line, for 
multiplying by 1 does not change the value 
of a multiplication. 

When building a value with cons , always 
consider () for the value of the terminating 
line. 

The Sixth Commandment 

Simplify only after the function is correct. 

The Seventh Commandment 

Recur on the subparts that are of the same 
nature: 

• On the sublists of a list. 

• On the subexpressions of an arithmetic 
expression. 

The Eighth Commandment 

Use help functions to abstract from represen¬ 
tations. 

The Ninth Commandment 

Abstract common patterns with a new func¬ 
tion. 

The Tenth Commandment 


Build functions to collect more than one 
value at a time. 



The Five Rules 


The Law of Car 

The primitive car is defined only for non¬ 
empty lists. 

The Law of Cdr 

The primitive cdr is defined only for non¬ 
empty lists. The cdr of any non-empty list 
is always another list. 

The Law of Cons 

The primitive cons takes two arguments. 
The second argument to cons must be a list. 
The result is a list. 


The Law of Null? 

The primitive null? is defined only for lists. 
The Law of Eq? 

The primitive eq? takes two arguments. 
Each must be a non-numeric atom. 
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Foreword 


This foreword appeared in the second and third editions of The Little 
LIS Per. We reprint it here with the permission of the author. 

In 19671 took an introductory course in photography. Most of the students (including me) came 
into that course hoping to learn how to be creative—to take pictures like the ones I admired 
by artists such as Edward Weston. On the first day the teacher patiently explained the long 
list of technical skills that he was going to teach us during the term. A key was Ansel Adams’ 
“Zone System” for previsualizing the print values (blackness in the final print) in a photograph 
and how they derive from the light intensities in the scene. In support of this skill we had 
to learn the use of exposure meters to measure light intensities and the use of exposure time 
and development time to control the black level and the contrast in the image. This is in turn 
supported by even lower level skills such as loading film, developing and printing, and mixing 
chemicals. One must learn to ritualize the process of developing sensitive material so that one 
gets consistent results over many years of work. The first laboratory session was devoted to 
finding out that developer feels slippery and that fixer smells awful. 

But what about creative composition? In order to be creative one must first gain control 
of the medium. One can not even begin to think about organizing a great photograph without 
having the skills to make it happen. In engineering, as in other creative arts, we must learn 
to do analysis to support our efforts in synthesis. One cannot build a beautiful and functional 
bridge without a knowledge of steel and dirt and considerable mathematical technique for using 
this knowledge to compute the properties of structures. Similarly, one cannot build a beautiful 
computer system without a deep understanding of how to “previsualize” the process generated 
by the procedures one writes. 

Some photographers choose to use black-and-white 8x10 plates while others choose 35mm 
slides. Each has its advantages and disadvantages. Like photography, programming requires a 
choice of medium. Lisp is the medium of choice for people who enjoy free style and flexibility. 
Lisp was initially conceived as a theoretical vehicle for recursion theory and for symbolic 
algebra. It has developed into a uniquely powerful and flexible family of software development 
tools, providing wrap-around support for the rapid-prototyping of software systems. As with 
other languages, Lisp provides the glue for using a vast library of canned parts, produced 
by members of the user community. In Lisp, procedures are first-class data, to be passed as 
arguments, returned as values, and stored in data structures. This flexibility is valuable, but 
most importantly, it provides mechanisms for formalizing, naming, and saving the idioms—the 
common patterns of usage that are essential to engineering design. In addition, Lisp programs 
can easily manipulate the representations of Lisp programs—a feature that has encouraged the 
development of a vast structure of program synthesis and analysis tools, such as cross-referencers. 

The Little LISPer is a unique approach to developing the skills underlying creative program¬ 
ming in Lisp. It painlessly packages, with considerable wit, much of the drill and practice that 
is necessary to learn the skills of constructing recursive processes and manipulating recursive 
data-structures. For the student of Lisp programming, The Little LISPer can perform the same 
service that Hanon’s finger exercises or Czerny’s piano studies perform for the student of piano. 

Gerald J. Sussman 
Cambridge, Massachusetts 
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Preface 


To celebrate the twentieth anniversary of Scheme we revised The Little LISPer a 
third time, gave it the more accurate title The Little Schemer , and wrote a sequel: 

The Seasoned Schemer. 

Programs accept data and produce data. Designing a program requires a thorough understand¬ 
ing of data; a good program reflects the shape of the data it deals with. Most collections of data, 
and hence most programs, are recursive. Recursion is the act of defining an object or solving a 
problem in terms of itself. 

The goal of this book is to teach the reader to think recursively. Our first task is to decide 
which language to use to communicate this concept. There are three obvious choices: a natural 
language, such as English; formal mathematics; or a programming language. Natural languages 
are ambiguous, imprecise, and sometimes awkwardly verbose. These are all virtues for general 
communication, but something of a drawback for communicating concisely as precise a concept 
as recursion. The language of mathematics is the opposite of natural language: it can express 
powerful formal ideas with only a few symbols. Unfortunately, the language of mathematics 
is often cryptic and barely accessible without special training. The marriage of technology 
and mathematics presents us with a third, almost ideal choice: a programming language. We 
believe that programming languages are the best way to convey the concept of recursion. They 
share with mathematics the ability to give a formal meaning to a set of symbols. But unlike 
mathematics, programming languages can be directly experienced—you can take the programs in 
this book, observe their behavior, modify them, and experience the effect of these modifications. 

Perhaps the best programming language for teaching recursion is Scheme. Scheme is 
inherently symbolic—the programmer does not have to think about the relationship between the 
symbols of his own language and the representations in the computer. Recursion is Scheme’s nat¬ 
ural computational mechanism; the primary programming activity is the creation of (potentially) 
recursive definitions. Scheme implementations are predominantly interactive—the programmer 
can immediately participate in and observe the behavior of his programs. And, perhaps most 
importantly for our lessons at the end of this book, there is a direct correspondence between 
the structure of Scheme programs and the data those programs manipulate. 

Although Scheme can be described quite formally, understanding Scheme does not require 
a particularly mathematical inclination. In fact, The Little Schemer is based on lecture notes 
from a two-week “quickie” introduction to Scheme for students with no previous programming 
experience and an admitted dislike for anything mathematical. Many of these students were 
preparing for careers in public affairs. It is our belief that writing programs recursively in Scheme 
is essentially simple pattern recognition. Since our only concern is recursive programming, our 
treatment is limited to the whys and wherefores of just a few Scheme features: car, cdr, cons, 
eq?, null?, zero?, addl, subl, number?, and, or, quote, lambda, define, and cond. Indeed, our 
language is an idealized Scheme. 

The Little Schemer and The Seasoned Schemer will not introduce you to the practical 
world of programming, but a mastery of the concepts in these books provides a start toward 
understanding the nature of computation. 
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What You Need to Know to Read This Book 

The reader must be comfortable reading English, recognizing numbers, and counting. 
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Guidelines for the Reader 

Do not rush through this book. Read carefully; valuable hints are scattered throughout the 
text. Do not read the book in fewer than three sittings. Read systematically. If you do not fully 
understand one chapter, you will understand the next one even less. The questions are ordered 
by increasing difficulty; it will be hard to answer later ones if you cannot solve the earlier ones. 

The book is a dialogue between you and us about interesting examples of Scheme programs. 
If you can, try the examples while you read. Schemes are readily available. While there are 
minor syntactic variations between different implementations of Scheme (primarily the spelling of 
particular names and the domain of specific functions), Scheme is basically the same throughout 
the world. To work with Scheme, you will need to define atom?, subl, and addl. which we 
introduced in The Little Schemer : 

(define atom? 

(lambda (x) 

(and (not (pair? x)) (not (null? x))))) 

To find out whether your Scheme has the correct definition of atom?, try (atom? (quote ())) 
and make sure it returns #f. In fact, the material is also suited for modern Lisps such as 
Common Lisp. To work with Lisp, you will also have to add the function atom?: 

(defun atom? (x) 

(not (listp x))) 
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Moreover, you may need to modify the programs slightly. Typically, the material requires 
only a few changes. Suggestions about how to try the programs in the book are provided in 
the framenotes. Framenotes preceded by “S:” concern Scheme, those by “L:” concern Common 
Lisp. 

In chapter 4 we develop basic arithmetic from three operators: addl , subl , and zero?. Since 
Scheme does not provide addl and subl , you must define them using the built-in primitives for 
addition and subtraction. Therefore, to avoid a circularity, our basic arithmetic addition and 
subtraction must be written using different symbols: + and =, respectively. 

We do not give any formal definitions in this book. We believe that you can form your 
own definitions and will thus remember them and understand them better than if we had 
written each one for you. But be sure you know and understand the Laws and Commandments 
thoroughly before passing them by. The key to learning Scheme is “pattern recognition.” The 
Commandments point out the patterns that you will have already seen. Early in the book, 
some concepts are narrowed for simplicity; later, they are expanded and qualified. You should 
also know that, while everything in the book is Scheme, Scheme itself is more general and 
incorporates more than we could intelligibly cover in an introductory text. After you have 
mastered this book, you can read and understand more advanced and comprehensive books on 
Scheme. 

We use a few notational conventions throughout the text, primarily changes in typeface 
for different classes of symbols. Variables and the names of primitive operations are in italic. 
Basic data, including numbers and representations of truth and falsehood, is set in sans serif. 
Keywords, i.e., define, lambda, cond, else, and, or, and quote, are in boldface. When you 
try the programs, you may ignore the typefaces but not the related framenotes. To highlight 
this role of typefaces, the programs in framenotes are set in a typewriter face. The typeface 
distinctions can be safely ignored until chapter 10, where we treat programs as data. 

Finally, Webster defines “punctuation” as the act of punctuating; specifically, the act, 
practice, or system of using standardized marks in writing and printing to separate sentences 
or sentence elements or to make the meaning clearer. We have taken this definition literally 
and have abandoned some familiar uses of punctuation in order to make the meaning clearer. 
Specifically, we have dropped the use of punctuation in the left-hand column whenever the item 
that precedes such punctuation is a term in our programming language. 

Food appears in many of our examples for two reasons. First, food is easier to visualize 
than abstract symbols. (This is not a good book to read while dieting.) We hope the choice of 
food will help you understand the examples and concepts we use. Second, we want to provide 
you with a little distraction. We know how frustrating the subject matter can be, and a little 
distraction will help you keep your sanity. 

You are now ready to start. Good luck! We hope you will enjoy the challenges waiting for 
you on the following pages. 


Bon appetit! 

Daniel P. Friedman 
Matthias Felleisen 
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The Little Schemer 











Is it true that this is an atom? 
atom 1 



L, S: (quote atom) or ’atom 
L:” and “Sare described in the preface. 


Yes, 

because atom is a string of characters 
beginning with the letter a. 


Is it true that this is an atom? 
turkey 


Yes, 

because turkey is a string of characters 
beginning with a letter. 


Is it true that this is an atom? 

1492 


Yes, 

because 1492 is a string of digits. 


Is it true that this is an atom? 
u 


Yes, 

because u is a string of one character, 
which is a letter. 


Is it true that this is an atom? 
*abc$ 


Yes, 

because *abc$ is a string of characters 
beginning with a letter or special character 
other than a left “(” or right “)” 
parenthesis. 


Is it true that this is a list? 
(atom) 1 



L, S: (quote 


(atom)) or ’(atom) 


Yes, 

because (atom) is an atom enclosed by 
parentheses. 


Is it true that this is a list? 
(atom turkey or) 


Yes, 

because it is a collection of atoms enclosed 
by parentheses. 
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Is it true that this is a list? 

(atom turkey) or 

No, 

because these are actually two 
S-expressions not enclosed by parentheses. 
The first one is a list containing two 
atoms, and the second one is an atom. 

Is it true that this is a list? 

((atom turkey) or) 

Yes, 

because the two S-expressions are now 
enclosed by parentheses. 

Is it true that this is an S-expression? 
xyz 

Yes, 

because all atoms are S-expressions. 

Is it true that this is an S-expression? 

(x y z) 

Yes, 

because it is a list. 

Is it true that this is an S-expression? 

((x y) z) 

Yes, 

because all lists are S-expressions. 

Is it true that this is a list? 

(how are you doing so far) 

Yes, 

because it is a collection of S-expressions 
enclosed by parentheses. 

How many S-expressions are in the list 
(how are you doing so far) 
and what are they? 

Six, 

how, are, you, doing, so, and far. 

Is it true that this is a list? 

(((how) are) ((you) (doing so)) far) 

Yes, 

because it is a collection of S-expressions 
enclosed by parentheses. 

How many S-expressions are in the list 
(((how) are) ((you) (doing so)) far) 
and what are they? 

Three, 

((how) are), ((you) (doing so)), and far. 
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Is it true that this is a list? 

o 


Yes, 

because it contains zero S-expressions 
enclosed by parentheses. This special 
S-expression is called the null (or empty) 
list. 


Is it true that this is an atom? 

o 


No, 

because () is just a list. 


Is it true that this is a list? 

(0 0 0 0 ) 


Yes, 

because it is a collection of S-expressions 
enclosed by parentheses. 


What is the car oi l a > 

where l is the argument because 3 is the first atom of this list, 

(a b c) 


What is the car of l 
where 

l is ((a b c) x y z) 


(a b c), 

because (a b c) is the first S-expression of 
this non-empty list. 


What is the car of l No answer. 

where l is hotdog You cannot ask for the car of an atom. 


What is the car of l 
where l is () 


No answer. 


l 


You cannot ask for the car of the empty 
list. 



L: nil 


The Law of Car 

The primitive car is defined 
only for non-empty lists. 
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What is the car of l 
where 

l is (((hotdogs)) (and) (pickle) relish) 


((hotdogs)), 
read as: 

“The list of the list of hotdogs.” 
((hotdogs)) is the first S-expression of l. 


What is (car l) 
where 

l is (((hotdogs)) (and) (pickle) relish) 

((hotdogs)), 

because (car l) is another way to ask for 
“the car of the list /.” 

What is (car (car l )) 
where 

l is (((hotdogs)) (and)) 

(hotdogs). 

What is the cdr of l 
where 

l is (a b c) 

(b c), 

because (b c) is the list l without (car l). 

Note: “cdr” is pronounced “could-er.” 


What is the cdr of l 
where 

l is ((a b c) x y z) 

(x y z). 

What is the cdr of l 
where 

l is (hamburger) 

()• 

What is (cdr l) 
where 

1 ^ ((x) t r) 

(t r), 

because (cdr l) is j ust another way to ask 
for “the cdr of the list /.” 

What is (cdr a) 
where 

a is hotdogs 

No answer. 

You cannot ask for the cdr of an atom. 
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What is ( car (cdr l)) 
where 

l is ((b) (x y) ((c))) 


(x y), 


because ((x y) ((c))) is ( cdr /), and (x y) is 
the car of ( cdr l). 


What is ( cdr (cdr /)) 
where 

l is ((b) (x y) ((c))) 


(((c))), 

because ((x y) ((c))) is ( cdr l), and (((c))) 
is the cdr of ( cdr l). 


What is (cdr (car /)) 
where 

l is (a (b (c)) d) 


No answer, 

since (car l ) is an atom, and cdr does not 
take an atom as an argument; see The Law 
of Cdr. 


What does car take as an argument? 


It takes any non-empty list. 


What does cdr take as an argument? It takes any non-empty list. 

What is the cons of the atom a and the list l (peanut butter and jelly), 

where a is peanut because cons adds an atom to the front of 

and a list. 

I is (butter and jelly) 

This can also be written “(cons a /)”. 

Read: u cons the atom a onto the list 
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What is the cons of s and l 
where s is (banana and) 
and 

l is (peanut butter and jelly) 


((banana and) peanut butter and jelly), 

because cons adds any S-expression to the 
front of a list. 


What is (cons s l) (((help) this) is very ((hard) to learn)), 

where 

s is ((help) this) 
and 

l is (is very ((hard) to learn)) 


What does cons take as its arguments? 


cons takes two arguments: 
the first one is any S-expression; 
the second one is any list. 


What is (cons s l) 
where 

5 is (a b (c)) 
and 
l is () 


((a b (c))), 

because () is a list. 


What is (cons s l) (a), 

where s is a 
and l is () 


What is (cons s l) 
where 

s is ((a b c)) 
and 
l is b 


No answer, 1 

since the second argument l must be a list. 


In practice, (cons a 0) works for all values a and 0, and 

(car (cons a 0)) = a 
(cdr (cons a 0)) = 0. 


What is (cons s l) No answer, 

where s is a Why? 

and l is b 
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The Law of Cons 

The primitive cons takes two arguments. 
The second argument to cons must be a 
list. The result is a list. 


What is (cons s (car l)) 

where 5 is a 

and 


l is ((b) c d) 



What is (cons s (cdr l)) 

where 5 is a 

and 


l is ((b) c d) 



Is it true that the list l is the null list Yes, 

where l is () because it is the list composed of zero 

S-expressions. 

This question can also be written: 

{null? 1). 


What is {null? 1 (quote ())) 


True, 

because (quote O) 1 is a notation for the 
null list. 


1 L: null 


1 L: Also () and ’ (). 
S: Also * (). 


Is {null? 1) true or false False, 

where because l is a non-empty list. 

I is (a b c) 
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Is {null? a) true or false No answer, 1 

where because you cannot ask null? of an atom. 

a is spaghetti 


1 In practice, (null? a) is false for everything, except the 
empty list. 


The Law of Null? 

The primitive null? is de¬ 
fined only for lists. 


Is it true or false that s is an atom True, 

where s is Harry because Harry is a string of characters 

beginning with a letter. 


Is {atom? 1 s) true or false 
where 
s is Harry 


True, 

because {atom? s) is just another way to 
ask “Is s is an atom?” 


1 


L: (defun atom? (x) 

(not (listp x))) 

S: (define atom? 

(lambda (x) 


(and (not (pair? x)) (not (null? x))))) 


Is {atom? s) true or false False, 

where since s is a list. 

s is (Harry had a heap of apples) 


How many arguments does atom? take and It takes one argument. The argument can be 
what are they? any S-expression. 
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Is {atom? (car l)) true or false 
where 

l is (Harry had a heap of apples) 

True, 

because {car l) is Harry, and Harry is an 
atom. 

Is {atom? {cdr l)) true or false 
where 

l is (Harry had a heap of apples) 

False. 

Is {atom? {cdr l)) true or false 
where 

l is (Harry) 

False, 

because the list () is not an atom. 

Is {atom? {car {cdr l))) true or false 
where 

l is (swing low sweet cherry oat) 

True, 

because {cdr l) is (low sweet cherry oat), 
and {car {cdr l)) is low, which is an atom. 

Is {atom? {car {cdr l))) true or false 
where 

l is (swing (low sweet) cherry oat) 

False, 

since {cdr l) is ((low sweet) cherry oat), and 
{car {cdr l)) is (low sweet), which is a list. 

True or false: al and a2 are the same atom 

where al is Harry 

and 

a2 is Harry 

True, 

because al is the atom Harry and a2 is the 
atom Harry. 

Is ( eq? 1 al a2) true or false 

where al is Harry 

and 

a2 is Harry 

True, 

because {eq? a 1 a2) is just another way to 
ask, “Are al and a2 the same 
non-numeric atom?” 

1 T 

L: eq 


Is {eq? al a2) true or false 
where al is margarine 
and 

a2 is butter 

False, 

since al and a2 are different atoms. 
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How many arguments does eq? take and 
what are they? 


It takes two arguments. Both of them must 
be non-numeric atoms. 


Is (eq? 11 12) true or false 

where 11 is () 

and 

12 is (strawberry) 


Is (eq? nl n2) true or false 
where nl is 6 
and 
n2 is 7 


No answer, 1 

() and (strawberry) are lists. 


1 In practice, lists may be arguments of eq?. Two lists are 
eq? if they are the same list. 


No answer, 1 

6 and 7 are numbers 


In practice, some numbers may be arguments of «q?. 



Is (eq? (car l) a) true or false 
where 

l is (Mary had a little lamb chop) 
and 

a is Mary 


True, 


because (car l) is the atom Mary, and the 
argument a is also the atom Mary. 


Is (eq? (cdr 1) a) true or false 
where 

l is (soured milk) 
and 

a is milk 


No answer. 

See The Laws of Eq? and Cdr 
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Is ( eq? (car l) (car (cdr l))) true or false 
where 

l is (beans beans we need jelly beans) 


True, 

because it compares the first and second 
atoms in the list. 



Now go make yourself a peanut butter and jelly sandwich. 



This space reserved for 

JELLY STAINS! 
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True or false: ( lat? 1) True, 

where because each S-expression in l is an atom. 

I is (Jack Sprat could eat no chicken fat) 


True or false: (lat? 1) 
where 

l is ((Jack) Sprat could eat no chicken fat) 

False, 

since (car l) is a list. 

True or false: (lat? 1) 
where 

l is (Jack (Sprat could) eat no chicken fat) 

False, 

since one of the S-expressions in / is a list. 

True or false: (lat? 1) 
where l is () 

A 

True, 

because it does not contain a list. 

True or false: a lat is a list of atoms. 

True! 

Every lat is a list of atoms! 

Write the function lat? using some, but not 
necessarily all, of the following functions: 
car cdr cons null? atom ?and eq? 

You were not expected to be able to do this 
yet, because you are still missing some 
ingredients. Go on to the next question. 

Good luck. 


Are you rested? 




Do It, Do It Again, and Again, and Again ... 
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What is the value of ( lat? 1) 
where 

l is the argument (bacon and eggs) 


#t. 

The application (lat? 1) 
where 

l is (bacon and eggs) 

has the value #t—true—because l is a lat. 


1 L: (defun lat? (1) 

(cond 

((null 1) t) 

((atom? (car 1)) (lat? (cdr 1))) 
(t nil))) 


You were not expected to know this one 
either. The answer is determined by 
answering the questions asked by lat J ? 

Hint: Write down the definition of the 
function lat? and refer to it for the next 
group of questions. 

(null? 1) 

Note: 

(cond ...) asks questions; 

(lambda ...) creates a function; and 
(define ...) gives it a name. 

What is the meaning of the cond-line (null? 1) asks if the argument l is the null 

((null? 1) #t) list. If it is, the value of the application is 

where true. If it is not, we ask the next question. 

I is (bacon and eggs) In this case, l is not the null list, so we ask 

the next question. 

What is the next question? (atom? (car l)). 


What is the first question asked by (lat? 1) 


How do we determine the answer # t for the 
application 
(lat? 1) 
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What is the meaning of the line 
{{atom? {car l)) {lat? {cdr /))) 
where 

l is (bacon and eggs) 

{atom? {car l)) asks if the first S-expression 
of the list l is an atom. If {car l) is an atom, 
we want to know if the rest of l is also 
composed only of atoms. If {car l) is not an 
atom, we ask the next question. In this case, 
{car l) is an atom, so the value of the 
function is the value of {lat? {cdr l)). 

What is the meaning of 
{lat? {cdr l)) 

{lat? {cdr l)) finds out if the rest of the list l 
is composed only of atoms, by referring to 
the function with a new argument. 

Now what is the argument l for lat? 

Now the argument l is {cdr l), which is 
(and eggs). 

What is the next question? 

(null? 1). 

What is the meaning of the line 
{{null? 1) # t) 
where 

l is now (and eggs) 

{null? 1) asks if the argument l is the null 
list. If it is, the value of the application is 
#t. If it is not, we ask the next question. In 
this case, l is not the null list, so we ask the 
next question. 

What is the next question? 

{atom? {car l )). 

What is the meaning of the line 
{{atom? {car l)) {lat? {cdr /))) 
where 

l is (and eggs) 

{atom? {car l)) asks if {car l) is an atom. If 
it is an atom, the value of the application is 
{lat? {cdr l )). If not, we ask the next 
question. In this case, {car l) is an atom, so 
we want to find out if the rest of the list l is 
composed only of atoms. 

What is the meaning of 
{lat? {cdr l )) 

{lat? {cdr l)) finds out if the rest of l is 
composed only of atoms, by referring again 
to the function lat?, but this time, with the 
argument {cdr l), which is (eggs). 


Do It, Do It Again, and Again, and Again ... 
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What is the next question? 

(null? 1). 

What is the meaning of the line 
{{null? 1 ) #t) 
where 

l is now (eggs) 

{null? 1) asks if the argument l is the null 
list. If it is, the value of the application is 
#t —true. If it is not, move to the next 
question. In this case, l is not null, so we ask 
the next question. 

What is the next question? 

{atom? {car l )). 

What is the meaning of the line 
{{atom? {car l)) {lat? {cdr l))) 
where 

l is now (eggs) 

{atom? {car l)) asks if {car l) is an atom. If 
it is, the value of the application is 
{lat? {cdr l )). If {car l) is not an atom, ask 
the next question. In this case, {car l) is an 
atom, so once again we look at {lat? {cdr l)). 

What is the meaning of {lat? {cdr l)) 

{lat? {cdr l)) finds out if the rest of the list l 
is composed only of atoms, by referring to 
the function lat?, with l becoming the value 
of {cdr l). 

Now, what is the argument for lat? 

o- 

What is the meaning of the line 
{{null?l) # t) 
where 

l is now () 

(null ? 1) asks if the argument l is the null 
list. If it is, the value of the application is 
the value of #t. If not, we ask the next 
question. In this case, () is the null list. So, 
the value of the application {lat? 1) 
where 

l is (bacon and eggs), is #t—true. 

Do you remember the question about 
(lat? 1) 

Probably not. The application {lat? 1 ) has 
the value #t if the list l is a list of atoms 
where 

l is (bacon and eggs). 
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Can you describe what the function lat? does 
in your own words? 


Here are our words: 

“lat? looks at each S-expression in a list, in 
turn, and asks if each S-expression is an 
atom, until it runs out of S-expressions. If 
it runs out without encountering a list, the 
value is #t. If it finds a list, the value is 
#f—false.” 

To see how we could arrive at a value of 
“false,” consider the next few questions. 


This is the function lat? again: 


(define lat? 
(lambda (/) 
(cond 


((null? 1) #t) 

((atom? (car /)) (lat? (cdr l))) 
(else #f)))) 


What is the value of (lat? 1) 
where 

l is now (bacon (and eggs)) 


#f, 


since the list l contains an S-expression 
that is a list. 


What is the first question? 


(null? 1). 


What is the meaning of the line 
((null? 1) #t) 
where 

l is (bacon (and eggs)) 


(null? 1) asks if l is the null list. If it is, the 
value is #t. If / is not null, move to the next 
question. In this case, it is not null, so we 
ask the next question. 


What is the next question? 


(atom? (car /)). 


What is the meaning of the line 
((atom? (car /)) (lat? (cdr /))) 
where 

l is (bacon (and eggs)) 


(atom? (car l)) asks if (car l) is an atom. If 
it is, the value is (lat? (cdr /)). If it is not, 
we ask the next question. In this case, 

(car l ) is an atom, so we want to check if the 
rest of the list l is composed only of atoms. 


Do It, Do It Again, and Again, and Again 


• • • 
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What is the meaning of 
(lat? (cdr l)) 

(lat? (cdr l)) checks to see if the rest of the 
list l is composed only of atoms, by referring 
to lat? with l replaced by (cdr l). 

What is the meaning of the line 
((null? 1) #t) 
where 

l is now ((and eggs)) 

(null? 1) asks if l is the null list. If it is null, 
the value is #t. If it is not null, we ask the 
next question. In this case, l is not null, so 
move to the next question. 

What is the next question? 

(atom? (car l )). 

What is the meaning of the line 
((atom? (car l)) (lat? (cdr l))) 
where 

l is now ((and eggs)) 

(atom? (car l )) asks if (car l ) is an atom. If 
it is, the value is (lat? (cdr l)). If it is not, 
we move to the next question. In this case, 
(car l) is not an atom, so we ask the next 
question. 

What is the next question? 

else. 

What is the meaning of the question else 

else asks if else is true. 

Is else true? 

Yes, because the question else is always true! 

else 

Of course. 

Why is else the last question? 

Because we do not need to ask any more 
questions. 

Why do we not need to ask any more 
questions? 

Because a list can be empty, can have an 
atom in the first position, or can have a list 
in the first position. 

What is the meaning of the line 
(else #f ) 

else asks if else is true. If else is true—as it 
always is—then the answer is #f—false. 
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What is 

))) 

These are the closing or matching 
parentheses of (cond ..., (lambda ..., and 
(define ..., which appear at the beginning 
of a function definition. 

Can you describe how we determined the 
value # f for 

(lot? 1) 

where 

l is (bacon (and eggs)) 

Here is one way to say it: 
u {lat? 1) looks at each item in its argument 
to see if it is an atom. If it runs out of 
items before it finds a list, the value of 
{lat? 1) is #t. If it finds a list, as it did in 
the example (bacon (and eggs)), the value 
of {lat? 1) is #f.” 

Is (or {null? 11) {atom? 12)) true or false 

where 11 is () 

and 

12 is (d e f g) 

True, 

because {null? 11) is true where 11 is (). 

Is (or {null? 11) {null? 12)) true or false 
where 

11 is (a b c) 
and 

12 is () 

True, 

because {null? 12) is true where 12 is (). 

Is (or {null? 11) {null? 12)) true or false 
where 

11 is (a b c) 
and 

12 is (atom) 

False, 

because neither {null? 11) nor {null? 12) is 
true where 

11 is (a b c) 
and 

12 is (atom). 

What does (or ...) do? 

(or ...) asks two questions, one at a time. If 
the first one is true it stops and answers true. 
Otherwise it asks the second question and 
answers with whatever the second question 
answers. 


Do It, Do It Again, and Again, and Again 


• • • 
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Is it true or false that a is a member of lat 

where a is tea 

and 

lat is (coffee tea or milk) 

True, 

because one of the atoms of the lat, 

(coffee tea or milk) 
is the same as the atom a — tea. 

Is ( member? a lat) true or false 

where a is poached 

and 

lat is (fried eggs and scrambled eggs) 

False, 

since a is not one of the atoms of the lat. 

This is the function member? 

#t, 

because the atom meat is one of the atoms 
of lat, 

(mashed potatoes and meat gravy). 

(define member? 

(lambda (a lat) 

(cond 

{{null? lat) #f) 

(else (or {eq? {car lat) a) 

{member? a {cdr lat))))))) 


What is the value of {member? a lat) 

where a is meat 

and 

lat is (mashed potatoes and meat gravy) 


How do we determine the value #t for the 
above application? 

The value is determined by asking the 
questions about {member? a lat). 

Hint: Write down the definition of the 
function member? and refer to it while you 
work on the next group of questions. 

What is the first question asked by 
{member? a lat) 

{null? lat). 

This is also the first question asked by lat?. 
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The First Commandment 

( preliminary ) 

Always ask null? as the first question in expressing 
any function. 


What is the meaning of the line 
((null? lat) #f) 
where 

lat is (mashed potatoes and meat gravy) 

(null? lat) asks if lat is the null list. If it is, 
the value is #f, since the atom meat was not 
found in lat. If not, we ask the next question. 
In this case, it is not null, so we ask the next 
question. 

What is the next question? 

else. 

Why is else the next question? 

Because we do not need to ask any more 
questions. 

Is else really a question? 

Yes, else is a question whose value is always 
true. 

What is the meaning of the line 

(else (or (eq? (car lat) a) 

(member? a (cdr lat)))) 

Now that we know that lat is not null?, we 
have to find out whether the car of lat is the 
same atom as a, or whether a is somewhere 
in the rest of lat. The answer 

(or (eq? (car lat) a) 

(member? a (cdr lat))) 

does this. 

True or false: 

(or (eq? (car lat) a) 

(member? a (cdr lat))) 
where a is meat 
and 

lat is (mashed potatoes and meat gravy) 

We will find out by looking at each question 
in turn. 


Do It, Do It Again, and Again, and Again ... 
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Is ( eq? ( car lat) a) true or false 

where a is meat 

and 

lat is (mashed potatoes and meat gravy) 

False, 

because meat is not eq? to mashed, 
the car of 

(mashed potatoes and meat gravy). 

What is the second question of (or ...) 

{member? a {cdr lat)). 

This refers to the function with the 
argument lat replaced by {cdr lat). 

Now what are the arguments of member? 

a is meat 
and 

lat is now {cdr lat), specifically 
(potatoes and meat gravy). 

What is the next question? 

{null? lat). 

Remember The First Commandment. 

Is {null? lat) true or false 
where 

lat is (potatoes and meat gravy) 

#f—false. 

What do we do now? 

Ask the next question. 

What is the next question? 

else. 

What is the meaning of 

(or {eq? {car lat) a) 

{member? a {cdr lat))) 

(or {eq? {car lat) a) 

{member? a {cdr lat))) 

finds out if a is eq? to the car of lat or if a is 
a member of the cdr of lat by referring to the 
function. 

Is a eq? to the car of lat 

No, because a is meat and the car of lat is 
potatoes. 
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So what do we do next? 

We ask (member? a (cdr lat)). 

Now, what are the arguments of member? 

a is meat, and 

lat is (and meat gravy). 

What is the next question? 

(null? lat). 

What do we do now? 

Ask the next question, since (null? lat) is 
false. 

What is the next question? 

else. 

What is the value of 

(or ( eq? ( car lat) a) 

(member? a (cdr lat))) 

The value of (member? a (cdr lat)). 

Why? 

Because (eq? (car lat) a) is false. 

What do we do now? 

Recur—refer to the function with new 
arguments. 

What are the new arguments? 

a is meat, and 
lat is (meat gravy). 

What is the next question? 

(null? lat). 

What d o we do now? 

Since (null? lat) is false, ask the next 
question. 

What is the next question? 

else. 


Do It, Do It Again, and Again, and Again ... 
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What is the value of 
(or ( eq? ( car lat) a) 

[member? a (cdr lat))) 

#t, 

because [car lat), which is meat, and a, 
which is meat, are the same atom. 
Therefore, (or ...) answers with # t . 

What is the value of the application 
( member? a lat) 
where a is meat 
and 

lat is (meat gravy) 

#t, 

because we have found that meat is a 
member of 
(meat gravy). 

What is the value of the application 
(member? a lat) 
where a is meat 
and 

lat is (and meat gravy) 

#t, 

because meat is also a member of the lat 
(and meat gravy). 

What is the value of the application 
( member? a lat) 
where a is meat 
and 

lat is (potatoes and meat gravy) 

#t, 

because meat is also a member of the lat 
(potatoes and meat gravy). 

What is the value of the application 
(member? a lat) 
where a is meat 
and 

lat is (mashed potatoes and meat gravy) 

#t, 

because meat is also a member of the lat 
(mashed potatoes and meat gravy). 

Of course, this is our original lat. 

Just to make sure you have it right, let’s 
quickly run through it again. What is the 
value of ( member? a lat) 
where 
a is meat 
and 

lat is (mashed potatoes and meat gravy) 

#t. 

Hint: Write down the definition of the 
function member? and its arguments and 
refer to them as you go through the next 
group of questions. 

[null? lat) 

No. Move to the next line. 
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else 


Yes. 

(or ( eq? (car 
( member? i 

lat) a) 
a (cdr lat))) 

Perhaps. 

(eq? (car lat) 

a) 

No. Ask the next question. 

What next? 


Recur with a and (cdr lat) 

where a is meat 

and 

(cdr lat) is (potatoes and meat gravy). 

(null? lat) 


No. Move to the next line. 

else 


Yes, but (eq? (car lat) a) is false. 

Recur with a and (cdr lat) 

where a is meat 

and 

(cdr lat) is (and meat gravy). 

(null? lat) 


No. Move to the next line. 

else 


Yes, but (eq? (car lat) a) is false. 

Recur with a and (cdr lat) 

where a is meat 

and 

(cdr lat) is (meat gravy). 

(null? lat) 


No. Move to the next line. 

(eq? (car lat) 

a) 

Yes, the value is #t . 


Do It, Do It Again, and Again, and Again ... 
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(or ( eq? ( car lat) a) 

{member? a (cdr lat))) 

#t. 

What is the value of {member? a lat) 

where a is meat 

and 

lat is (meat gravy) 

#t. 

What is the value of {member? a lat) 

where a is meat 

and 

lat is (and meat gravy) 

#t. 

What is the value of {member? a lat) 

where a is meat 

and 

lat is (potatoes and meat gravy) 

#t. 

What is the value of {member? a lat) 

where a is meat 

and 

lat is (mashed potatoes and meat gravy) 

#t. 

What is the value of {member? a lat) 

where a is liver 

and 

lat is (bagels and lox) 

#f. 

Let’s work out why it is #f. What’s the first 
question member? asks? 

{null? lat). 

{null? lat) 

No. Move to the next line. 
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else 

Yes, but (eq? (car lat) a) is false. 

Recur with a and (cdr lat) 

where a is liver 

and 

(cdr lat) is (and lox). 

(null? lat) 

No. Move to the next line. 

else 

Yes, but (eq? (car lat) a) is false. 

Recur with a and (cdr lat) 

where a is liver 

and 

(cdr lat) is (lox). 

(null? lat) 

No. Move to the next line. 

else 

Yes, but (eq? (car lat) a) is still false. 

Recur with a and (cdr lat) 

where a is liver 

and 

(cdr lat) is (). 

(null? lat) 

Yes. 

What is the value of (member? a lat) 

where a is liver 

and 

lat is () 

#f. 

What is the value of 
(or (eq? (car lat) a) 

(member? a (cdr lat))) 
where 
a is liver 
and 

lat is (lox) 

#f. 


Do It, Do It Again, and Again, and Again ... 
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What is the value of ( member? a lat) 

where a is liver 

and 

lat is (lox) 

#f. 

What is the value of 
(or ( eq? ( car lat) a) 

{member? a (cdr lat))) 
where 
a is liver 
and 

lat is (and lox) 

#f. 

What is the value of {member? a lat) 

where a is liver 

and 

lat is (and lox) 

#f. 

What is the value of 
(or {eq? {car lat) a) 

{member? a {cdr lat))) 
where 
a is liver 
and 

lat is (bagels and lox) 

#f. 

What is the value of {member? a lat) 

where a is liver 

and 

lat is (bagels and lox) 

#f. 
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Do you believe all this? Then you may rest! 



Do It, Do It Again, and Again, and Again ... 
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What is ( rember a lat) 
where a is mint 
and 

lat is (lamb chops and mint jelly) 

(lamb chops and jelly) 

“Rember” stands for remove a member. 

(rember a lat) 
where a is mint 
and 

lat is (lamb chops and 

mint flavored mint jelly) 

(lamb chops and flavored mint jelly). 

{rember a lat) 
where a is toast 
and 

lat is (bacon lettuce and tomato) 

(bacon lettuce and tomato). 

{rember a lat) 
where a is cup 
and 

lat is (coffee cup tea cup and hick cup) 

(coffee tea cup and hick cup). 

What does {rember a lat) do? 

It takes an atom and a lat as its arguments, 
and makes a new lat with the first occurrence 
of the atom in the old lat removed. 

What steps should we use to do this? 

First we will test {null? lat) —The First 
Commandment. 

And if {null? lat) is true? 

Return (). 

What do we know if {null? lat) is not true? 

We know that there must be at least one 
atom in the lat. 

Is there any other question we should ask 
about the lat? 

No. Either a lat is empty or it contains at 
least one atom. 


Cons the Magnificent 
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What do we do if we know that the lat 
contains at least one atom? 

We ask whether a is equal to (car lat). 

How do we ask questions? 

By using 
(cond 

( ) 

( ))• 

How do we ask if a is the same as ( car lat) 

(eq? (car lat) a). 

What would be the value of ( rember a lat) if 
a were the same as ( car lat) 

(cdr lat). 

What do we do if a is not the same as 
(car lat) 

We want to keep (car lat), but also find out 
if a is somewhere in the rest of the lat. 

How do we remove the first occurrence of a 
in the rest of lat 

(rember a (cdr lat)). 

Is there any other question we should ask? 

No. 

Now, let’s write down what we have so far: 

(lettuce and tomato). 

Hint: Write down the function rember and 
its arguments, and refer to them as you go 
through the next sequence of questions. 

(define rember 
(lambda (a lat) 

(cond 

((null? lat) (quote ())) 

(else (cond 

((eq? (car lat) a) (cdr lat)) 
(else (rember a 

(cdr lat)))))))) 

What is the value of (rember a lat) where 
a is bacon 
and 

lat is (bacon lettuce and tomato) 
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Now, let’s see if this function works. What is 
the first question? 

(null? lat). 

What do we do now? 

Move to the next line and ask the next 
question. 

else 

Yes. 

What next? 

Ask the next question. 

( eq? (car lat ) a) 

Yes, so the value is (cdr lat). In this case, it 
is the list 

(lettuce and tomato). 

Is this the correct value? 

Yes, because it is the original list without the 
atom bacon. 

But did we really use a good example? 

Who knows? But the proof of the pudding is 
in the eating, so let’s try another example. 

What does rember do? 

It takes an atom and a lat as its arguments, 
and makes a new lat with the first occurrence 
of the atom in the old lat removed. 

What do we do now? 

We compare each atom of the lat with the 
atom a, and if the comparison fails we build 
a list that begins with the atom we just 
compared. 

What is the value of (rember a lat) 

where a is and 

and 

lat is (bacon lettuce and tomato) 

(bacon lettuce tomato). 


Cons the Magnificent 
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Let us see if our function rember works. 

What is the first question asked by rember 

{null? lat). 

What do we do now? 

Move to the next line, and ask the next 
question. 

else 

Okay, so ask the next question. 

( eq? (car lat) a) 

No, so move to the next line. 

What is the meaning of 
(else ( rember a (cdr lat))) 

else asks if else is true—as it always is—and 
the rest of the line says to recur with a and 
{cdr lat), where 
a is and 
and 

{cdr lat) is (lettuce and tomato). 

[null? lat) 

No, so move to the next line. 

else 

Sure. 

{eq? (car lat) a) 

No, so move to the next line. 

What is the meaning of 
{rember a {cdr lat)) 

Recur 
where 
a is and 
and 

{cdr lat) is (and tomato). 

{null? lat) 

No, so move to the next line, and ask the 
next question. 

else 

Of course. 
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( eq? (car lat) a) 


Yes. 


So what is the result? 

(cdr lat) — (tomato). 


Is this correct? 


No, since (tomato) is not the list 
(bacon lettuce and tomato) 
with just a — and —removed. 

What did we do wrong? 

We dropped and, but we also lost all the 
atoms preceding and. 

How can we keep from losing the atoms 
bacon and lettuce 

We use Cons the Magnificent 
cons, from chapter 1? 

. Remember 


■ 


The Second Commandment 



Use cons to build lists. 





Let’s see what happens when we use cons 

(bacon lettuce tomato). 

Hint: Make a copy of this function with 
cons and the arguments a and lat so you 
can refer to it for the following questions. 

(define rember 
(lambda (a lat) 

(cond 

((null? lat) (quote ())) 

(else (cond 

((eq? (car lat) a) (cdr lat)) 
(else (cons (car lat) 

(rember a 
{cdr lat))))))))) 

What is the value of (rember a lat) 

where a is and 

and 

lat is (bacon lettuce and tomato) 

• 



Cons the Magnificent 
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What is the first question? 

{null? lat). 


What do we do now? 

Ask the next question. 


else 

Yes, of course. 


( eq? (car lat) a) 

No, so move to the next line. 


What is the meaning of 

(cons (car lat) 

(rember a 
(cdr lat))) 

where 
a is and 
and 

lat is (bacon lettuce and tomato) 

It says to cons the car of lat —bacon— 
the value of 

{rember a {cdr lat)). 

But since we don’t know the value of 
{rember a {cdr lat)) yet, we must find 
before we can cons {car lat) onto it. 

-onto 

it 

What is the meaning of ( rember a (cdr lat)) 

This refers to the function with lat replaced 
by {cdr lat) —(lettuce and tomato). 

{null? lat) 

No, so move to the next line. 


else 

Yes, ask the next question. 


{eq? {car lat) a) 

No, so move to the next line. 


What is the meaning of 

{cons {car lat) 

{rember a 
{cdr lat))) 

It says to cons the car of lat —lettuce—onto 
the value of 

{rember a {cdr lat)). 

But since we don’t know the value of 
{rember a {cdr lat)) yet, we must find it 
before we can cons {car lat) onto it. 


38 


Chapter 3 










What is the meaning of ( rember a (cdr lat)) 

This refers to the function with lat replaced 
by (cdr lat), that is, (and tomato). 

{null? lat) 

No, so ask the next question. 

else 

Still. 

(eq? (car lat) a) 

Yes. 

What is the value of the line 
{(eq? (car lat) a) (cdr lat)) 

(cdr lat) —(tomato). 

Are we finished? 

Certainly not! We know what (rember a lat) 
is when lat is (and tomato), but we don’t yet 
know what it is when lat is 
(lettuce and tomato) 
or 

(bacon lettuce and tomato). 

We now have a value for 
(rember a (cdr lat)) 
where a is and 
and 

(cdr lat) is (and tomato) 

This value is (tomato) 

What next? 

Recall that we wanted to cons lettuce onto 

the value of (rember a (cdr lat)) 

where 

a was and and (cdr lat) was (and tomato). 
Now that we have this value, which is 
(tomato), we can cons lettuce onto it. 

What is the result when we cons lettuce onto 
(tomato) 

(lettuce tomato). 

What does (lettuce tomato) represent? 

It represents the value of 

(cons (car lat) 

(rember a 
(cdr lat))), 

when 

lat is (lettuce and tomato) 
and 

(rember a (cdr lat)) is (tomato). 
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Are we finished yet? Not quite. So far we know what 

(rember a lat ) is when 
lat is (lettuce and tomato), 
but we don’t yet know what it is when 
lat is (bacon lettuce and tomato). 

Recall that, at one time, we wanted to cons 
bacon onto the value of ( rember a (cdr lat)), 
where 
a was and 
and 

(cdr lat) was (lettuce and tomato). 

Now that we have this value, which is 
(lettuce tomato), 
we can cons bacon onto it. 

What is the result when we cons bacon onto (bacon lettuce tomato). 

(lettuce tomato) 

What does (bacon lettuce tomato) represent? t ^ represents the value of 

(cons (car lat) 

{rember a {cdr lat))), 

when 

lat is (bacon lettuce and tomato) 
and 

{rember a {cdr lat)) is (lettuce tomato). 

^ Lunch? 

Are we finished yet? Yes. 

Can you put in your own words how we In our words: 

determined the final value “The function rember checked each atom of 

(bacon lettuce tomato) the lat, one at a time, to see if it was the 

same as the atom and. If the car was not 
the same as the atom, we saved it to be 
consed to the final value later. When 
rember found the atom and, it dropped it, 
and conse d the previous atoms back onto 
the rest of the lat.” 


We now have a value for {rember a {cdr lat)) 

where a is and 

and 

{cdr lat) is (lettuce and tomato) 

This value is (lettuce tomato) 

This is not the final value, so what must we 
do again? 
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Can you rewrite rember so that it reflects the 
above description? 

Yes, we can simplify it. 

(define rember 
(lambda (a lat) 

(cond 

{{null? lat) (quote ())) 

{{eq? {car lat) a) {cdr lat)) 

(else {cons {car lat) 

{rember a {cdr lat))))))) 



Do you think this is simpler? 

Functions like rember can always be 
simplified in this manner. 

So why don’t we simplify right away? 

Because then a function’s structure does not 
coincide with its argument’s structure. 

Let’s see if the new rember is the same as the 
old one. What is the value of the application 
{rember a lat) 
where a is and 
and 

lat is (bacon lettuce and tomato) 

(bacon lettuce tomato). 

Hint: Write down the function rember and 
its arguments and refer to them as you go 
through the next sequence of questions. 

{null? lat) 

No. 

{eq? {car lat) a) 

No. 

else 

Yes, so the value is 

{cons {car lat) 

{rember a {cdr lat))). 

What is the meaning of 

{cons {car lat) 

{rember a {cdr lat))) 

This says to refer to the function rember but 
with the argument lat replaced by {cdr lat), 
and that after we arrive at a value for 
{rember a {cdr lat)) we must cons 
{car lat) —bacon— onto it. 
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( null? lat) 

No. 

( eq? (car lat) a) 

No. 

else 

Yes, so the value is 

(cons (car lat) 

(rember a (cdr lat))). 

What is the meaning of 

(cons (car lat) 

( rember a ( cdr lat))) 

This says we recur using the function 
rember , with the argument lat replaced by 
(cdr lat), and that after we arrive at a value 
for (rember a (cdr lat)), we must cons 
(car lat) — lettuce —onto it. 

( null? lat) 

No. 

(eq? (car lat) a) 

Yes. 

What is the value of the line 
((eq? (car lat) a) (cdr lat)) 

It is (cdr lat) —(tomato). 

Now what? 

Now cons (car lat) —lettuce—onto (tomato). 

Now what? 

Now cons (car lat) bacon onto 
(lettuce tomato). 

Now that we have completed rember 
try this example: (rember a lat) 
where a is sauce 
and 

lat is (soy sauce and tomato sauce) 

(rember a lat) is (soy and tomato sauce). 
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What is (firsts l) 
where 

l is ((apple peach pumpkin) 

(plum pear cherry) 

(grape raisin pea) 

(bean carrot eggplant)) 

(apple plum grape bean). 

What is (firsts l) 
where 

l is ((a b) (c d) (e f)) 

(a c e). 

What is (firsts l ) 
where Z is () 

o- 

What is (firsts l) 
where 

Z is ((five plums) 

(four) 

(eleven green oranges)) 

(five four eleven). 

What is (firsts Z) 
where 

Z is (((five plums) four) 

(eleven green oranges) 

((no) more)) 

((five plums) eleven (no)). 

In your own words, what does (firsts Z) do? 

We tried the following: 

“The function firsts takes one argument, a 
list, which is either a null list or contains 
only non-empty lists. It builds another list 
composed of the first S-expression of each 
internal list.” 
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See if you can write the function firsts 

Remember the Commandments! 

This much is easy: 

(define firsts 
(lambda (l) 

(cond 

((null? 1) ...) 

(else (cons ... (firsts (cdr /))))))) 



Why 

(define firsts 
(lambda (/) 

...)) 

Because we always state the function name, 
(lambda, and the argument(s) of the 
function. 

Why (cond ...) 

Because we need to ask questions about the 
actual arguments. 

Why ((null? 1) ...) 

The First Commandment. 

Why (else 

1 

1 

Because we only have two questions to ask 
about the list l: either it is the null list, or it 
contains at least one non-empty list. 

Why (else 

( 

* 

See above. And because the last question is 
always else. 

Why (cons 

I 

Because we are building a list—The Second 
Commandment. 

Why (firsts (cdr l)) 

i 

Because we can only look at one S-expression 
at a time. To look at the rest, we must recur. 

Why ))) Because these are the matching parentheses 

for (cond, (lambda, and (define, and they 
always appear at the end of a function 
definition. 


44 


Chapter 3 









Keeping in mind the definition of ( firsts l) 
what is a typical element of the value 
of ( firsts l) 
where 


l is ((a b) (c d) (e f)) 



What is another typical element? 


c, or even e. 


Consider the function seconds 

What would be a typical element of the value 

of ( seconds l) 

where 


l is ((a b) (c d) (e f)) 


b, d, or f. 


How do we describe a typical element for 
(firsts l) 


As the car of an element of l —( car (car /)). 
See chapter 1. 


When we find a typical element of (firsts l) cons it onto the recursion— (firsts (cdr l)). 
what do we do with it? 


The Third Commandment 

When building a list, describe the first typical ele¬ 
ment, and then cons it onto the natural recursion. 


With The Third Commandment, we can now 
fill in more of the function firsts 
What does the last line look like now? 


(else (cons (car (car l)) (firsts (cdr /)) )). 



typical natural 

element recursion 
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What does ( firsts l) do 

Nothing yet. We are still missing one 
important ingredient in our recipe. The first 
line ((null? 1) ...) needs a value for the case 
where l is the null list. We can, however, 
proceed without it for now. 

(define firsts 
(lambda (/) 

(cond 

((null? 1) ...) 

(else (cons (car (car /)) 

(firsts (cdr l))))))) 

where l is ((a b) (c d) (e f)) 


(null? 1) where l is ((a b) (c d) (e f)) 

No, so move to the next line. 

What is the meaning of 

(cons (car (car l)) 

(firsts (cdr /))) 

It saves (car (car l)) to cons onto 
(firsts (cdr 1)). To find (firsts (cdr l)), we 
refer to the function with the new argument 
(cdr l). 

(null? 1) where l is ((c d) (e f)) 

No, so move to the next line. 

What is the meaning of 

(cons (car (car l)) 

(firsts (cdr /))) 

Save (car (car /)), and recur with 
(firsts (cdr /)). 

(null? 1) where l is ((e f)) 

No, so move to the next line. 

What is the meaning of 

(cons (car (car /)) 

(firsts (cdr /))) 

Save (car (car /)), and recur with 
(firsts (cdr /)). 

(null? 1) 

Yes. 

Now, what is the value of the line 
((null? 1) ...) 

There is no value; something is missing. 
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What do we need to cons atoms onto? 

A list. 

Remember The Law of Cons. 

For the purpose of consing, what value can 
we give when (null? 1) is true? 

Since the final value must be a list, we 
cannot use # t or #f. Let’s try (quote ()). 


With () as a value, we now have three cons (ace), 
steps to go back and pick up. We need to: 

I. either 

1. cons e onto () 

2. cons c onto the value of 1 

3. cons a onto the value of 2 

II. or 

1. cons a onto the value of 2 

2. cons c onto the value of 3 

3. cons e onto () 

III. or 

cons a onto 
the cons of c onto 
the cons of e onto 

o 

In any case, what is the value of ( firsts l) 


With which of the three alternatives do you Correct! Now you should use that one. 
feel most comfortable? 


What is ( insertR new old lat) (ice cream with fudge topping for dessert), 

where 

new is topping 
old is fudge 
and 

lat is (ice cream with fudge for dessert) 


(insertR new old lat ) (tacos tamales and jalapeno salsa), 

where 

new is jalapeno 
old is and 
and 

lat is (tacos tamales and salsa) 
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(insertR new old lat) (a b c d e f g d h). 

where 
new is e 
old is d 
and 

lat is (a b c d f g d h) 


In your own words, what does 
(insertR new old lat ) do? 


In our words: 

“It takes three arguments: the atoms new 
and old , and a lat. The function insertR 
builds a lat with new inserted to the right 
of the first occurrence of old” 


See if you can write the first three lines of 
the function insertR 



Which argument changes when we recur with lat , because we can only look at one of its 
insertR atoms at a time. 


How many questions can we ask about the Two. 

lat? A lat is either the null list or a non-empty 

list of atoms. 


Which questions do we ask? 

First, we ask (null? lat). Second, we ask 
else, because else is always the last question. 

What do we know if (null? lat) is not true? 

We know that lat has at least one element. 

Which questions do we ask about the first 
element? 

First, we ask (eq? (car lat) old). Then we 
ask else, because there are no other 
interesting cases. 
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Now see if you can write the whole function 
insertR 

(define insertR 
(lambda (new old lat) 

(cond 

( - ) 

(else 

(cond 

( - ) 

( - )))))) 


Here is our first attempt. 

(define insertR 
(lambda (new old lat) 

(cond 

((null? lat) (quote ())) 

(else 

(cond 

((eq? (car lat) old) (cdr lat)) 
(else (cons (car lat) 

(insertR new old 
(cdr lat))))))))) 


What is the value of the application (ice cream with for dessert). 

(insertR new old lat) 
that we just determined 
where 

new is topping 
old is fudge 
and 

lat is (ice cream with fudge for dessert) 


So far this is the same as rember When (car lat) is the same as old, we want 

What do we do in insertR when to insert new to the right. 

(eq? (car lat) old) is true? 


How is this done? 


Let’s try consmg new onto (cdr lat). 


Now we have Yes. 

(define insertR 
(lambda (new old lat) 

(cond 

((null? lat) (quote ())) 

(else (cond 

((eq? (car lat) old) 

(cons new (cdr lat))) 

(else (cons (car lat) 

(insertR new old 
(cdr lat))))))))) 
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(ice cream with topping for dessert). 


So what is ( insertR new old lat) now 
where 

new is topping 
old is fudge 
and 

lat is (ice cream with fudge for dessert) 

Is this the list we wanted? No, we have only replaced fudge with topping. 

What still needs to be done? Somehow we need to include the atom that is 

the same as old before the atom new. 

How can we include old before new Try cons’mg old onto ( cons new 

Now let’s write the rest of the function 
insertR 


When new is topping, old is fudge, and lat is 
(ice cream with fudge for dessert), the value of 
the application, ( insertR new old lat), is 
(ice cream with fudge topping for dessert). 

If you got this right, have one. 
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Now try insertL 

Hint: insertL inserts the atom new to the 
left of the first occurrence of the atom old 
in lat 


Did you think of a different way to do it? For example, 

(( eq? (car lat) old) 

(cons new (cons old (cdr lat)))) 

could have been 

((eq? (car lat) old) 

(cons new lat)) 

since (cons old (cdr lat)) where old is eq? to 
(car lat) is the same as lat. 

Now try subst Obviously, 

Hint: (subst new old lat) replaces the first 
occurrence of old in the lat with new 
For example, 
where 

new is topping 

old is fudge 
and 

lat is (ice cream with fudge for dessert) 
the value is 

(ice cream with topping for dessert) 

Now you have the idea. 

This is the same as one of our incorrect 
attempts at insertR. 



This much is easy, right? 
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Go cons a piece of cake onto your mouth. 


Now try subst2 
Hint: 

( subst2 new ol o2 lat) 
replaces either the first occurrence of ol or 
the first occurrence of o2 by new 
For example, 
where 

new is vanilla 
ol is chocolate 
o2 is banana 
and 

lat is (banana ice cream 

with chocolate topping) 
the value is 

(vanilla ice cream 

with chocolate topping) 


(define subst2 
(lambda (new ol o2 lat) 

(cond 

((null? lat) (quote ())) 

(else (cond 

((eq? (car lat) ol) 

(cons new (cdr lat))) 
((eq? (car lat) o2) 

(cons new (cdr lat))) 
(else (cons (car lat) 

(subst2 new ol o2 
{cdr lat ))))))))) 


Did you think of a better way? 


Replace the two eq? lines about the (car lat) 

by 

((or (eq? (car lat) ol) (eq? (car lat) o2)) 
(cons new (cdr lat))). 


If you got the last function, go and repeat the cake-consing. 


Do you recall what rember does? The function rember looks at each atom of a 

lat to see if it is the same as the atom a. If it 
is not, rember saves the atom and proceeds. 
When it finds the first occurrence of a, it 
stops and gives the value (cdr lat), or the 
rest of the lat, so that the value returned is 
the original lat, with only that occurrence of 
a removed. 
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Write the function multirember which gives 
as its final value the lat with all occurrences 
of a removed. 


(define multirember 


(lambda (a lat) 


(cond 


( 

-) 

(else 


(cond 


( 

) 

( 

)))))) 


Hint: What do we want as the value when 
(eq? ( car lat) a) is true? 

Consider the example 
where a is cup 
and 

lat is (coffee cup tea cup and hick cup) 


(define multirember 
(lambda (a lat) 

(cond 

((null? lat) (quote ())) 

(else 

(cond 

((eq? (car lat) a) 
(multirember a (cdr lat))) 
(else (cons (car lat) 

(multirember a 
(cdr lat))))))))) 

After the first occurrence of a, we now 
recur with (multirember a (cdr lat)), in 
order to remove the other occurrences. 

The value of the application is 
(coffee tea and hick). 


Can you see how multirember works? Possibly not, so we will go through the steps 

necessary to arrive at the value 
(coffee tea and hick). 


(null? lat) 

No, so move to the next line. 

else 

Yes. 

(eq? (car lat) a) 

No, so move to the next line. 

What is the meaning of 

(cons (car lat) 

(multirember a 
(cdr lat))) 

Save (cAr lat) coffee to be consed onto 
the value of (multirember a (cdr lat)) later. 
Now determine 

(multirember a (cdr lat)). 

(null? lat) 

No, so move to the next line. 
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else 

Naturally. 

( eq? (car lat) a) 

Yes, so forget (car lat), and determine 
(multirember a (cdr lat)). 

[null? lat) 

No, so move to the next line. 

else 

Yes! 

(eq? (car lat) a) 

No, so move to the next line. 

What is the meaning of 

(cons (car lat) 

(multirember a 
(cdr lat))) 

Save (car lat) —tea—to be consed onto the 
value of (multirember a (cdr lat)) later. Now 
determine 

(multirember a (cdr lat)). 

(null? lat) 

No, so move to the next line. 

else 

Okay, move on. 

(eq? (car lat) a) 

Yes, so forget (car lat), and determine 
(multirember a (cdr lat)). 

(null? lat) 

No, so move to the next line. 

(eq? (car lat) a) 

No, so move to the next line. 

What is the meaning of 

(cons (car lat) 

(multirember a 
(cdr lat))) 

Save (car lat) —and—to be conse d onto the 
value of (multirember a (cdr lat)) later. Now 
determine 

(multirember a (cdr lat)). 
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{null? lat ) 


No, so move to the next line. 


( eq? (car lat) a) 

No, so move to the next line. 

What is the meaning of 

(cons (car lat) 

{multirember a 
{cdr lat))) 

Save {car lat) hick to be consed onto the 
value of {multirember a {cdr lat)) later. Now 
determine 

{multirember a {cdr lat)). 

{null? lat) 

No, so move to the next line. 

{eq? {car lat) a) 

Yes, so forget {car lat), and determine 
{multirember a {cdr lat)). 

{null? lat) 

Yes, so the value is (). 

Are we finished? 

No, we still have several conse s to pick up. 

What do we do next? 

We cons the most recent {car lat) we 
have—hick—onto (). 

What do we do next? 

We cons and onto (hick). 

What do we do next? 

We cons tea onto (and hick). 

What do we do next? 

We cons coffee onto (tea and hick). 

Are we finished now? 

Yes. 
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It would also be correct to use old in place 
of ( car lat) because we know that 
( eq? (car lat) old). 


Is this function defined correctly? 


(define multiinsertL 
(lambda (new old lat) 

(cond 

((null? lat) (quote ())) 

(else 

(cond 

((eq? (car lat) old) 

(cons new 
(cons old 

(multiinsertL new old 
lat)))) 

(else (cons (car lat) 

(multiinsertL new old 
(cdr lat))))))))) 


Not quite. To find out why, go through 
(multiinsertL new old lat) 
where 

new is fried 
old is fish 
and 

lat is (chips and fish or fish and fried). 


Was the terminal condition ever reached? 


No, because we never get past the first 
occurrence of old. 
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Now, try to write the function multiinsertL 
again: 


(define multiinsertL 
(lambda (new old lat) 
(cond 


(else 


(cond 


)))))) 


(define multiinsertL 
(lambda (new old lat) 

(cond 

((null? lat) (quote ())) 

(else 

(cond 

((eq? (car lat) old) 

(cons new 
(cons old 

(multiinsertL new old 
(cdr lat))))) 

(else (cons (car lat) 

(multiinsertL new old 
(cdr lat))))))))) 


The Fourth Commandment 


( preliminary ) 

Always change at least one argument while recurring. It 
must be changed to be closer to termination. The changing 
argument must be tested in the termination condition: 

when using cdr, test termination with null?. 


Now write the function multisubst 



(define multisubst 
(lambda (new old lat) 

(cond 

((null? lat) (quote ())) 

(else (cond 

((eq? (car lat) old) 

(cons new 
(multisubst new old 
(cdr /at)))) 

(else (cons (car lat) 

(multisubst new old 
(cdr lat))))))))) 
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Is 14 an atom? 


Yes, because all numbers are atoms. 


Is {atom? n) true or false True, because 14 is an atom. 

where 
n is 14 

Is —3 a number? Yes, 

but we do not consider negative numbers. 

Is 3.14159 a number? Yes, 

but we consider only whole numbers. 

Are —3 and 3.14159 numbers? Yes, 

but the only numbers we use are the 
nonnegative integers (i.e., 0, 1, 2, 3, 4, ...). 


What is ( addl 1 n) 68. 

where n is 67 



What is (addl 67) 


Also 68, 

because we don’t need to say “where n is 
67” when the argument is a number. 



What is ( subl 1 n ) 
where n is 5 



S: (define subl 

(lambda (n) 
(- n 1)))) 
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What is (subl 0) 

No answer. 1 


1 (subl n ), where n isO, has no answer because we consider 
only nonnegative numbers. In practice, this result is -1. 

Is (zero ? 1 0) true or false? 

True. 

1 L: zerop 


Is (zero? 1492) true or false? 

False. 

What is (+ 46 12) 

58. 


Try to write the function + 

Hint: It uses zero? addl 1 and subl 1 


(define + 1 

(lambda (n m) 

(cond 

((zero? m ) n) 

(else (addi (+ n (subl m))))))) 
Wasn’t that easy? 



Remember to use our definitions for addl and subl. 



L, S: This is like +. Write it as o+ (see preface). 


But didn’t we just violate The First Yes, but we can treat zero? like null? since 

Commandment? zero? asks if a number is empty and null? 

asks if a list is empty. 


If zero? is like null? Yes! cons builds lists and addl builds 

is addl like cons numbers. 
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What is (— 14 3) 

11. 

What is (- 17 9) 

8. 

What is (- 18 25) 

No answer. There are no negative numbers. 

Try to write the function = 

How about this: 

Hint: Use subl 

(define = 1 

(lambda (n m) 

(cond 

((zero? m ) n ) 

(else (subl (= n (subl m))))))) 




1 L, S: This is like Write it as o- (see preface). 

t 

Can you describe how (= n m) works? 

It takes two numbers as arguments, and 
reduces the second until it hits zero. It 
subtracts one from the result as many times 
as it did to cause the second one to reach 

zero. 

Is this a tup? 

(2 11 3 79 47 6) 

Yes: tup is short for tuple. 

Is this a tup? 

(8 55 5 555) 

Yes, of course, it is also a list of numbers. 

Is this a tup? 

(12 8 apple 4 3) 

No, it is just a list of atoms. 

Is this a tup? 

(3 (7 4) 13 9) 

No, because it is not a list of numbers. 

(7 4) is not a number. 
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Is this a tup? 

0 

Yes, it is a list of zero numbers. This special 
case is the empty tup. 

What is ( addtup tup) 
where 

tup is (3 5 2 8) 

18. 

What is ( addtup tup) 
where 

tup is (15 6 7 12 3) 

43. 

What does addtup do? 

It builds a number by totaling all the 
numbers in its argument. 

What is the natural way to build numbers 
from a list? 

Use + in place of cons: + builds numbers in 
the same way as cons builds lists. 

When building lists with cons 

the value of the terminal condition is () 

What should be the value of the terminal 
condition when building numbers with + 

0 . 

What is the natural terminal condition for a 
list? 

(null? 1). 

What is the natural terminal condition for a 
tup? 

(null? tup). 

When we build a number from a list of 
numbers, what should the terminal condition 
line look like? 

((null? tup) 0), just as ((null? 1) (quote ())) 
is often the terminal condition line for lists. 

What is the terminal condition line of 
addtup 

((null? tup) 0). 


62 


Chapter 4 










How is a lat defined? 


It is either an empty list, or it contains an 
atom, (car lat), and a rest, (cdr lat), that is 
also a lat. 


How is a tup defined? It is either an empty list, or it contains a 

number and a rest that is also a tup. 

What is used in the natural recursion on a (cdr lat). 

list? 

What is used in the natural recursion on a (cdr tup). 

tup? 


Why? Because the rest of a non-empty list is a list 

and the rest of a non-empty tup is a tup. 

How many questions do we need to ask Two. 

about a list? 

How many questions do we need to ask Two, because it is either empty or it is a 

about a tup? number and a rest, which is again a tup. 

How is a number defined? It is either zero or it is one added to a rest, 

where rest is again a number. 


What is the natural terminal condition for (zero? n). 

numbers? 

What is the natural recursion on a number? (subl n). 

How many questions do we need to ask Two. 

about a number? 
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The First Commandment 

(first revision) 

When recurring on a list of atoms, lat, ask two questions 
about it: (null? lat) and else. 

When recurring on a number, n, ask two questions about 
it: (zero? n) and else. 


What does cons do? 

It builds lists. 

What does addtup do? 

It builds a number by totaling all the 
numbers in a tup. 

What is the terminal condition line of 
addtup 

((null? tup) 0). 

What is the natural recursion for addtup 

(addtup (cdr tup)). 

What does addtup use to build a number? 

It uses + , because Hh builds numbers, too! 

Fill in the dots in the following definition: 

Here is what we filled in: 

(Hh (car tup) (addtup (cdr tup))). 

Notice the similarity between this line, and 
the last line of the function rember: 

(cons (car lat) (rember a (cdr lat))). 

(define addtup 
(lambda (tup) 

(cond 

((null? tup) 0) 

(else ...)))) 



What is (x 5 3) 

15. 

What is (x 13 4) 

52. 
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What does (x n m) do? 

It builds up a number by adding n up m 
times. 

What is the terminal condition line for x 

((zero? m) 0), because n x 0 = 0. 

Since (zero? m) is the terminal condition, m 
must eventually be reduced to zero. What 
function is used to do this? 

subl. 


The Fourth Commandment 

(first revision) 

Always change at least one argument while recurring. It 
must be changed to be closer to termination. The changing 
argument must be tested in the termination condition: 

when using cdr, test termination with null? and 
when using subl, test termination with zero?. 


What is another name for (x n (subl m)) in It’s the natural recursion for x. 
this case? 


Try to write the function x 


(define x 1 

(lambda (n m) 

(cond 

((zero? m) 0) 

(else (+ n (x n (subl ra))))))) 


1 L, S: This is like *. 
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What is (x 12 3) 

36, 

but let’s follow through the function one 
time to see how we get this value. 

(zero? m) 

No. 


What is the meaning of 

It adds n (where n = 12) to the natural 


(l n (x n (subl m))) 

recursion. If x is correct then 
(x 12 (subl 3)) 
should be 24. 


What are the new arguments of 

n is 12, and m is 2. 


(x n m) 

(zero? m) 

No. 


What is the meaning of 

It adds n (where n = 12) to (x n (subl 

m)). 

(Hh n (x n (subl m))) 

What are the new arguments of 

n is 12, and m is 1. 


(x n m) 

(zero? m) 

No. 


What is the meaning of 

It adds n (where n = 12) to (x n (subl 

m)). 

(+ n (x n (subl m))) 

What is the value of the line 

0, because (zero? m) is now true. 


((zero? m) 0) 

Are we finished yet? 

No. 
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Why not? 


Because we still have three HHes to pick up. 


What is the value of the original application? Add 12 to 12 to 12 to 0 yielding 36, 

Notice that n has been Hhed m times. 

Argue, using equations, that x is the (x 12 3) = 12 + (x 12 2) 

conventional multiplication of nonnegative = 12 + 12 + (xl21) 

integers, where n is 12 and m is 3. = 12 + 12 + 12 + (x 12 0) 

= 12 + 12 + 12 + 0 , 
which is as we expected. This technique 
works for all recursive functions, not just 
those that use numbers. You can use this 
approach to write functions as well as to 
argue their correctness. 


Again, why is 0 the value for the terminal 
condition line in x 


Because 0 will not affect +. That is, 


n + 0 


n. 


The Fifth Commandment 


When building a value with & , always use 0 for the value of the 
terminating line, for adding 0 does not change the value of an 
addition. 


When building a value with x, always use 1 for the value of the 
terminating line, for multiplying by 1 does not change the value 
of a multiplication. 

When building a value with cons , always consider () for the value 
of the terminating line. 


What is (tup+ tupl tup2 ) (11 11 11 11 11). 

where 

tupl is (3 6 9 11 4) 
and 

tup2 is (8 5 2 0 7) 
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What is ( tup+ tupl tup2) 
where 

tupl is (2 3) 

and 

tupl is (4 6) 

(6 9). 

What does (tup+ tupl tup2) do? 

It adds the first number of tupl to the first 
number of tup2, then it adds the second 
number of tupl to the second number of 
tup 2 , and so on, building a tup of the 
answers, for tups of the same length. 

What is unusual about tup-\- 

It looks at each element of two tups at the 
same time, or in other words, it recurs on 
two tups. 

If you recur on one tup how many questions 
do you have to ask? 

Two, they are (null? tup) and else. 

When recurring on two tups, how many 
questions need to be asked about the tups? 

Four: if the first tup is empty or non-empty, 
and if the second tup is empty or non-empty. 

Do you mean the questions 

(and (null? tupl) (null? tup2)) 

(null? tupl) 

(null? tup2) 
and 
else 

* 

Yes. 

Can the first tup be () at the same time as 
the second is other than () 

No, because the tups must have the same 
length. 

Does this mean 

(and (null? tupl) (null? tup2)) 
and 
else 

are the only questions we need to ask? 

Yes, 

because (null? tupl) is true exactly when 
(null? tup2) is true. 
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Write the function tup+ 


(define tup+ 

(lambda (tupl tup2) 

(cond 

((and {null? tupl) {null? tup2)) 
(quote ())) 

(else 

{cons (+ {car tupl) {car tup2)) 
{tup+ 

{cdr tupl) {cdr tup2))))))) 


What are the arguments of + in the last line? 

{car tupl) and {car tup2). 

What are the arguments of cons in the last 
line? 

(+ {car tupl) {car tup2)) and 
{tup-\- {cdr tupl) {cdr tup2)). 

What is {tup+ tupl tup2) 
where 

tupl is (3 7) 
and 

tup2 is (4 6) 

(7 13). 

But let’s see how it works. 

{null? tupl) 

No. 

{cons 

(+ (car tupl) {car tup2)) 

{tup-\- {cdr tupl) {cdr tup2))) 

cons 7 onto the natural recursion: 

{tup-\- {cdr tupl) {cdr tup2)). 

Why does the natural recursion include the 
cdr of both arguments? 

Because the typical element of the final value 
uses the car of both tups, so now we are 
ready to consider the rest of both tups. 

{null? tupl) 
where 

tupl is now (7) 
and 

tup2 is now (6) 

No. 
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(cons 

(+ (car tupl) (car tup2)) 

( tup-\- (cdr tupl) (cdr tup2))) 

cons 13 onto the natural recursion. 

[null? tupl) 

Yes. 

Then, what must be the value? 

(), because ( null? tup2) must be true. 

What is the value of the application? 

(7 13). That is, the cons of 7 onto the cons 
of 13 onto (). 

What problem arises when we want 

(tup-\- tupl tup2) 

where 

tupl is (3 7) 
and 

tup2 is (4 6 8 1) 

No answer, since tupl will become null 
before tup2. 

See The First Commandment: We did not 
ask all the necessary questions! 

But, we would like the final value to be 

(7 13 8 1). 

Can we still write tup-\- even if the tups are 
not the same length? 

Yes! 

What new terminal condition line can we 
add to get the correct final value? 

Add 

((null? tupl) tup2). 

What is (tup-\- tupl tup2) 
where 

tupl is (3 7 8 1) 
and 

tup2 is (4 6) 

No answer, since tup2 will become null 
before tupl. 

See The First Commandment: We did not 
ask all the necessary questions! 

What do we need to include in our function? 

We need to ask two more questions: 

(null? tupl) and (null? tup2). 

What does the second new line look like? 

((null? tup2) tupl). 
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Here is a definition of tup+ that works for 
any two tups: 

(define tup+ 

(lambda (tupl tup2) 

(cond 

((and (null? tupl) (null? tup2)) 
(quote ())) 

((null? tupl) tup2) 

((null? tup2) tupl ) 

(else 

(cons (■£ (car tupl) (car tup2)) 
(tup+ 

(cdr tupl) (cdr tup2))))))) 
Can you simplify it? 


(define tup+ 

(lambda (tupl tup2) 

(cond 

((null? tupl) tup2) 

((null? tup2) tupl) 

(else 

(cons (=G= (car tupl) (car tup2)) 
(tup- 1- 

(cdr tupl) (cdr tup2))))))) 


Does the order of the two terminal conditions No. 
matter? 


Is else the last question? Yes, because either (null? tupl) or 

(null? tup2) is true if either one of them does 
not contain at least one number. 


What is (> 12 133) 

#f—false. 

What is (> 120 11) 

#t —true. 

On how many numbers do we have to recur? 

Two, n and m. 

How do we recur? 

With (subl n) and (subl m). 

When do we recur? 

When we know neither number is equal to 0. 

How many questions do we have to ask 
about n and m 

Three: (zero? n), (zero? m), and else. 


Numbers Games 


71 













Can you write the function > now using 
zero? and subl 


How about 


(define > 

(lambda (n m) 

(cond 

((zero? m ) #t) 

((zero? n ) #f) 

(else (> (subl n ) (subl m)))))) 


Is the way we wrote (> n m) correct? 

No, try it for the case where n and m are the 
same number. Let n and m be 3. 

(zero? 3) 


No, so move to the next question. 

(zero? 3) 


No, so move to the next question. 

What is the 

meaning of 

Recur, but with both arguments reduced by 

(> (subl 

n) (subl m)) 

one. 

(zero? 2) 


No, so move to the next question. 

(zero? 2) 


No, so move to the next question. 

What is the 

meaning of 

Recur, but with both arguments closer to 

(> (subl 

n) (subl m)) 

zero by one. 

(zero? 1) 


No, so move to the next question. 

(zero? 1) 


No, so move to the next question. 

What is the 

meaning of 

Recur, but with both arguments reduced by 

(> (subl 

n) (subl m )) 

one. 


72 


Chapter 4 









(zero? 0) 

Yes, so the value of (> n m) is #t. 

Is this correct? 

No, because 3 is not greater than 3. 

Does the order of the two terminal conditions 
matter? 

Think about it. 

Does the order of the two terminal conditions 
matter? 

Try it out! 

Does the order of the two previous answers 
matter? 

Yes. Think first, then try. 

How can we change the function > to take 
care of this subtle problem? 

Switch the zero? lines: 

(define > 

(lambda (n m) 

(cond 

((zero? n ) #f) 

((zero? m) #t) 

(else (> (subl n) (subl rn)))))) 



What is (< 4 6) 

#t. 

« 8 3) 

#f. 

(< 6 6) 

#f. 

Now try to write < 


(define < 

(lambda (n m) 

(cond 

((zero? m) #f) 

((zero? n ) #t) 

(else (< (subl n) (subl rn)))))) 
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Rewrite 


using < and > 


Does this mean we have two different 
functions for testing equality of atoms? 


Yes, they are 


for atoms that are numbers 


and eq? for the others. 


(t 11) 


i. 


(T 2 3) 


8 . 


(t 5 3) 


125 



* L, S: This is like expt. 

What is a good name for this function? We have never seen this kind of definition 

before; the natural recursion also looks 
strange. 
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What does the first question check? 


It determines whether the first argument is 
less than the second one. 


And what happens in the second line? We recur with a first argument from which 

we subtract the second argument. When the 
function returns, we add 1 to the result. 


So what does the function do? 


It counts how many times the second 
argument fits into the first one. 


And what do we call this? Division. 

(define -j- 1 

(lambda (n m) 

(cond 

((< n m ) 0) 

(else (addl (-r (= n m) m)))))) 



L: (defun quotient (n m) 

(values (truncate (/ n 

S: This is like quotient. 




Easy, it is 3. 


How do we get there? 


Easy, too: 







(-15 4) = 

= 1 

+ 

(+ 

11 

4) 


- 

= 1 

+ 

(1 

+ 

(+ 

7 4)) 

- 

= 1 

+ 

(1 

+ 

(1 

+ (4-3 4))) 

— 

= 1 

+ 

(1 

+ 

(1 

+ o))- 


Wouldn’t a (ham and cheese on rye) be good right now? 

Don’t forget the mustard! 
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6 . 


What is the value of ( length lat) 
where 

lat is (hotdogs with mustard sauerkraut 

and pickles) 


What is (length lat) 5. 

where 

lat is (ham and cheese on rye) 


Now try to write the function length 


(define length 
(lambda (lat) 

(cond 

{{null? lat ) 0) 

(else (addl (length (cdr lat ))))))) 


What is (pick n lat) macaroni. 

where n is 4 

and 

lat is (lasagna spaghetti ravioli 

macaroni meatball) 


What is (pick 0 lat) No answer, 

where lat is (a) 


Try to write the function pick 


(define pick 
(lambda (n lat) 

(cond 

((zero? (subl n)) (car lat)) 

(else (pick (subl n) (cdr lat)))))) 


What is (rempick n lat) (hotdogs with mustard). 

where n is 3 

and 

lat is (hotdogs with hot mustard) 
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Now try to write rempick 


Is (number? 1 a) true or false 
where a is tomato 


L: numberp 


Is (number? 76) true or false? 


(define rempick 
(lambda (n lat) 
(cond 


((zero? (subl n)) (cdr lat)) 
(else (cons (car lat) 

(rempick (subl n) 
(cdr lat))))))) 


False. 


True. 


Can you write number? which is true if its No: number?, like addl, subl, zero?, car, 

argument is a numeric atom and false if it is cdr, cons, null?, eq?, and atom?, is a 

anthing else? primitive function. 


Now using number? write the function 
no-nums which gives as a final value a lat 
obtained by removing all the numbers from 
the lat. For example, 
where 

lat is (5 pears 6 prunes 9 dates) 
the value of (no-nums lat) is 
(pears prunes dates) 


(define no-nums 
(lambda (lat) 

(cond 

((null? lat) (quote ())) 

(else (cond 

((number? (car lat)) 
(no-nums (cdr lat))) 
(else (cons (car lat) 

(no-nums 

(cdr lat))))))))) 
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Write the function one? where (one? n) is #t 
if n is 1 and #f (i.e., false) otherwise. 


(define one? 

(lambda (n) 

(cond 

((zero? n) #f) 

(else (zero? (subl n)))))) 


or 

(define one? 

(lambda (n) 

(cond 

(else (= n 1))))) 


Guess how we can further simplify this 
function, making it a one-liner. 


By removing the (cond ... ) clause 



Now rewrite the function rempick that 
removes the n th atom from a lat. For 
example, 
where 
n is 3 
and 

lat is (lemon meringue salty pie) 
the value of (rempick n lat) is 
(lemon meringue pie) 

Use the function one? in your answer. 


(define rempick 
(lambda (n lat) 

(cond 

((one? n) (cdr lat)) 

(else (cons (car lat) 

(rempick (subl n) 
(cdr lat))))))) 
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What is ( rember * a l) ((coffee) ((tea)) (and (hick))). 

where a is cup 

and 

l is ((coffee) cup ((tea) cup) 

(and (hick)) cup) 

“rember*” is pronounced “rember-star.” 


What is ( rember* a l) 
where a is sauce 
and 

l is (((tomato sauce)) 

((bean) sauce) 

(and ((flying)) sauce)) 


(((tomato)) 

((bean)) 

(and ((flying)))). 


Now write rember *' 
Here is the skeleton: 


(define rember* 


(lambda (a l) 


(cond 


( 

) 

( 

) 

( 

)») 


“ ... * ” makes us think “oh my gawd.” 


(define rember* 

(lambda (a l) 

(cond 

((null? 1) (quote ())) 

((atom? (car /)) 

(cond 

((eq? (car l) a) 

(rember* a (cdr /))) 

(else (cons (car l) 

(rember* a (cdr /)))))) 
(else (cons (rember* a (car l )) 

(rember* a (cdr /))))))) 

Using arguments from one of our previous 
examples, follow through this to see how it 
works. Notice that now we are recurring 
down the car of the list, instead of just the 
cdr of the list. 


(lat? 1) #f. 

where 

l is (((tomato sauce)) 

((bean) sauce) 

(and ((flying)) sauce)) 


*Oh My Gawd*: It’s Full of Stars 
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Is (car l) an atom 
where 

l is (((tomato sauce)) 

((bean) sauce) 

(and ((flying)) sauce)) 


No. 


What is ( insertR* new old l) 
where 

new is roast 
old is chuck 
and 

l is ((how much (wood)) 

could 

((a (wood) chuck)) 
(((chuck))) 

(if (a) ((wood chuck))) 
could chuck wood) 


((how much (wood)) 
could 

((a (wood) chuck roast)) 
(((chuck roast))) 

(if (a) ((wood chuck roast))) 
could chuck roast wood). 


Now write the function insertR* which 
inserts the atom new to the right of old 
regardless of where old occurs. 


(define insertR* 
(lambda (new old l) 
(cond 


)») 


(define insertR* 

(lambda (new old l) 

(cond 

((null? 1) (quote ())) 

((atom? (car l)) 

(cond 

((eq? (car l) old) 

(cons old 
(cons new 
(insertR* new old 
(cdr l))))) 

(else (cons (car l ) 

(insertR* new old 
(cdr l)))))) 

(else (cons (insertR* new old 

(car l )) 

(insertR* new old 
(cdr 1))))))) 


How are insertR* and rember* similar? 


Each function asks three questions. 
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The First Commandment 

(final version ) 

When recurring on a list of atoms, to, ask two questions 
about it: (null? lat) and else. 

When recurring on a number, n, ask two questions about 
it: (zero? n) and else. 

When recurring on a list of S-expressions, /, ask three 
question about it: (null? /), (atom? (car /)), and else. 


How are insertR* and rember* similar? 

Each function recurs on the car of its 
argument when it finds out that the 
argument’s car is a list. 

How are rember* and multirember different? 

A 

The function multirember does not recur 
with the car. The function rember* recurs 
with the car as well as with the cdr. It 
recurs with the car when it finds out that 
the car is a list. 

How are insertR * and rember* similar? 

They both recur with the car , whenever the 
car is a list, as well as with the cdr. 

How are all *-functions similar? 

. A 

They all ask three questions and recur with 
the car as well as with the cdr, whenever the 
car is a list. 

Why? 

Because all ^-functions work on lists that are 
either 

— empty, 

— an atom conse d onto a list, or 

— a list conse d onto a list. 


*Oh My Gawd*: It’s Full of Stars 
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The Fourth Commandment 

(final version ) 

Always change at least one argument while recurring. 
When recurring on a list of atoms, lat, use (cdr lat). When 
recurring on a number, n, use (subl n). And when recur¬ 
ring on a list of S-expressions, /, use (car l) and (cdr 1) if 
neither (null? 1) nor (atom? (car /)) are true. 

It must be changed to be closer to termination. The chang¬ 
ing argument must be tested in the termination condition: 

when using cdr, test termination with null? and 
when using subl , test termination with zero?. 


(occursomething a l) 

5. 

where 


a is banana 


and 


l is ((banana) 


(split ((((banana ice))) 


(cream (banana)) 


sherbet)) 


(banana) 


(bread) 


(banana brandy)) 


What is a better name for 
occursomething 

occur*. 
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Write occur* 


(define occur* 


(lambda (a l) 


(cond 


(- - 

) 

( 

) 

( 

)))) 


(define occur* 

(lambda (a l) 

(cond 

((null? I ) 0) 

((atom? (car l )) 

(cond 

((eq? (car l) a) 

(addl (occur* a (cdr /)))) 
(else (occur* a (cdr /))))) 
(else (+ (occur* a (car l)) 

(occur* a (cdr /))))))) 


(subst* new old l) 
where 

new is orange 
old is banana 
and 

l is ((banana) 

(split ((((banana ice))) 

(cream (banana)) 
sherbet)) 
(banana) 

(bread) 

(banana brandy)) 


((orange) 

(split ((((orange ice))) 

(cream (orange)) 
sherbet)) 
(orange) 

(bread) 

(orange brandy)). 


Write subst* 


(define subst* 


(lambda (new old l) 


(cond 


( 

) 

( 

) 

( 

)))) 


(define subst* 

(lambda (new old l ) 

(cond 

((null? 1) (quote ())) 

((atom? (car l)) 

(cond 

((eq? (car l) old) 

(cons new 

(subst* new old (cdr /)))) 
(else (cons (car l) 

(subst* new old 
(cdr l)))))) 


(else 

(cons (subst* new old (car l)) 
(subst* new old (cdr l))))))) 


*Oh My Gawd*: It’s Full of Stars 
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What is ( insertL* new old l) 
where 

new is pecker 
old is chuck 
and 

l is ((how much (wood)) 

could 

((a (wood) chuck)) 
(((chuck))) 

(if (a) ((wood chuck))) 
could chuck wood) 


((how much (wood)) 
could 

((a (wood) pecker chuck)) 
(((pecker chuck))) 

(if (a) ((wood pecker chuck))) 
could pecker chuck wood). 


Write insertL* 


(define insertL* 


(lambda (new old l) 


(cond 


( 

—) 

( 

—) 

( 

)))) 


(define insertL* 

(lambda (new old l) 

(cond 

((null? 1) (quote ())) 

((atom? (car /)) 

(cond 

((eq? (car l) old) 

(cons new 
(cons old 
(insertL* new old 
(cdr /))))) 

(else (cons (car l) 

(insertL* new old 
(cdr /)))))) 

(else (cons (insertL* new old 

(car /)) 

(insertL* new old 
(cdr /))))))) 


(member* a l) #t, because the atom chips appears in the 

where a is chips list l. 

and 

l is ((potato) (chips ((with) fish) (chips))) 
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Write member* 


(define member* 


(lambda {a l) 


(cond 



) 

( 

) 

( 

)))) 


(define member* 

(lambda (a l) 

(cond 

{{null? 1) #f) 

{{atom? {car l)) 

(or {eq? {car l) a) 

{member* a {cdr l)))) 

(else (or {member* a {car l)) 

{member* a {cdr /))))))) 


What is {member* a l) #t . 

where 
a is chips 
and 

l is ((potato) (chips ((with) fish) (chips))) 


Which chips did it find? 


((potato) (chips ((with) fish) (chips))). 


What is {leftmost l) potato, 

where 

l is ((potato) (chips ((with) fish) (chips))) 


What is {leftmost l) hot. 

where 

l is (((hot) (tuna (and))) cheese) 


What is {leftmost l) 

No answer. 

where 


l is (((() four)) 17 (seventeen)) 


What is {leftmost (quote ())) 

No answer. 


Can you describe what leftmost does? Here is our description: 

“The function leftmost finds the leftmost 
atom in a non-empty list of S-expressions 
that does not contain the empty list.” 
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Is leftmost a *-function? 


Does leftmost need to ask questions about all 
three possible cases? 


Now see if you can write the function 
leftmost 


(define leftmost 


(lambda {l) 


(cond 


( 

) 

( 

)))) 


Do you remember what (or ...) does? 


What is 

(and {atom? (car l)) 
{eq? (car l) x)) 
where 
x is pizza 
and 

l is (mozzarella pizza) 


Why is it false? 


88 


It works on lists of S-expressions, but it only 
recurs on the car. 


No, it only needs to ask two questions. We 
agreed that leftmost works on non-empty 
lists that don’t contain empty lists. 



(or ...) asks questions one at a time until it 
finds one that is true. Then (or ...) stops, 
making its value true. If it cannot find a true 
argument, the value of (or ...) is false. 



Since (and ...) asks {atom? {car /)), which 
is true, it then asks {eq? {car l) x), which is 
false; hence it is #f. 
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What is 

(and {atom? (car l)) 

{eq? (car l) x)) 
where 
x is pizza 
and 

l is ((mozzarella mushroom) pizza) 

#f. 

Why is it false? 

Since (and ...) asks {atom? {car l)), and 
{car l) is not an atom; so it is #f. 

Give an example for x and l where 

(and {atom? {car l)) 

{eq? {car l) x)) 
is true. 

Here’s one: 

x is pizza 
and 

l is (pizza (tastes good)). 

Put in your own words what (and ...) does. 

We put it in our words: 

“(and ...) asks questions one at a time 
until it finds one whose value is false. Then 
(and ...) stops with false. If none of the 
expressions are false, (and ...) is true.” 

True or false: it is possible that one of the 
arguments of (and ...) and (or ...) is not 
considered? 1 

True, because (and ...) stops if the first 
argument has the value #f, and (or ...) 
stops if the first argument has the value #t. 

1 (cond . . .) also has the property of not considering all of 
its arguments. Because of this property, however, neither 
(and ...) nor (or ...) can be defined as functions in terms 
of (cond ...), though both (and . . .) and (or ...) can be 
expressed as abbreviations of (cond ... )-expressions: 

(and a P) = (cond (a P) (else #f)) 
and 

(or a P) = (cond (a #t) (else P)) 


{eqlist? 11 12) 
where 

11 is (strawberry ice cream) 
and 

12 is (strawberry ice cream) 

#t. 
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{eqlist? 11 12) 
where 

11 is (strawberry ice cream) 
and 

12 is (strawberry cream ice) 

#f. 

( eqlist? 11 12) 
where 

11 is (banana ((split))) 
and 

12 is ((banana) (split)) 

#f. 

{eqlist? 11 12) 
where 

11 is (beef ((sausage)) (and (soda))) 
and 

12 is (beef ((salami)) (and (soda))) 

#f, but almost #t . 

{eqlist? 11 12) 
where 

11 is (beef ((sausage)) (and (soda))) 
and 

12 is (beef ((sausage)) (and (soda))) 

#t . That’s better. 

What is eqlist? 

It is a function that determines if two lists 
are equal. 

How many questions will eqlist? have to ask 
about its arguments? 

Nine. 

Can you explain why there are nine 
questions? 

Here are our words: 

“Each argument may be either 

— empty, 

— an atom conse d onto a list, or 

— a list conse d onto a list. 

For example, at the same time as the first 
argument may be the empty list, the 
second argument could be the empty list or 
have an atom or a list in the car position.” 
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Write eqlist? using eqan? 


Is it okay to ask (atom? (car 12)) in the 
second question? 


(define eqlist? 
(lambda (11 12) 
(cond 


((and (null? 11) (null? 12)) #t) 
((and (null? 11) (atom? (car 12))) 

#o 

((null? 11) #f) 

((and (atom? (car 11)) (null? 12)) 

#f) 

((and (atom? (car u)) 

(atom? (car 12))) 

(and (eqan? (car 11) (car 12)) 
(eqlist? (cdr 11) (cdr 12)))) 
((atom? (car 11)) #f) 

((null? 12) #f) 

((atom? (car 12)) #f) 

(else 

(and (eqlist? (car 11) (car 12)) 
(eqlist? (cdr 11) (cdr 12))))))) 


Yes, because we know that the second list 
cannot be empty. Otherwise the first 
question would have been true. 


And why is the third question (null? 11) 


At that point, we know that when the first 
argument is empty, the second argument is 
neither the empty list nor a list with an atom 
as the first element. If (null? 11) is true now, 
the second argument must be a list whose 
first element is also a list. 


True or false: if the first argument is () True. 

eqlist? responds with #t in only one case. For 

must also be the empty list. 


(eqlist? (quote ()) 12) to be true, 12 
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Does this mean that the questions Yes. If the first question is true, eqlist? 

(and ( null? 11) ( null? 12)) responds with #t; otherwise, the answer is 

and # f. 

(or {null? 11) {null? 12)) 
suffice to determine the answer in the first 
three cases? 


Rewrite eqlist? 


(define eqlist? 

(lambda {11 12) 

(cond 

((and {null? 11) {null? 12)) #t) 
((or {null? 11) {null? 12)) #f) 
((and {atom? {car 11)) 

{atom? {car 12))) 

(and {eqan? {car 11) {car 12)) 
{eqlist? {cdr 11) {cdr 12)))) 
((or {atom? {car 11)) 

{atom? {car 12))) 

#o 

(else 

(and {eqlist? {car 11) {car 12)) 
{eqlist? {cdr 11) {cdr 12))))))) 


What is an S-expression? 


An S-expression is either an atom or a 
(possibly empty) list of S-expressions. 


How many questions does equal? ask to Four. The first argument may be an atom or 

determine whether two S-expressions are the a list of S-expressions at the same time as 
sartie? the second argument may be an atom or a 

list of S-expresssions. 


Write equal? 


(define equal? 

(lambda {si s2) 

(cond 

((and {atom? si) {atom? s2)) 
{eqan? si s2)) 

{{atom? si) #f) 

{{atom? s2) #f) 

(else {eqlist? si s2))))) 
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Why is the second question {atom? si) 

If it is true, we know that the first argument 
is an atom and the second argument is a list. 

And why is the third question {atom? s2) 

By the time we ask the third question we 
know that the first argument is not an atom. 
So all we need to know in order to 
distinguish between the two remaining cases 
is whether or not the second argument is an 
atom. The first argument must be a list. 

Can we summarize the second question and 
the third question as 

(or {atom? si) {atom? s2)) 

Yes, we can! 

Simplify equal? 


(define equal? 

(lambda {si s2) 

(cond 

((and {atom? si) {atom? s2)) 

{eqan? si s2)) 

((or {atom? si) {atom? s2)) 

#o 

(else {eqlist? si s2))))) 



Does equal? ask enough questions? 

Yes. 

The questions cover all four possible cases. 

Now, rewrite eqlist? using equal? 


(define eqlist? 

(lambda {11 12) 

(cond 

((and {null? 11) {null? 12)) #t) 

((or {null? 11) {null? 12)) #f) 

(else 

(and {equal? {car 11) {car 12)) 
{eqlist? {cdr 11) {cdr 12))))))) 
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The Sixth Commandment 

Simplify only after the function is correct. 


Here is rember after we replace lat by a list l 
of S-expressions and a by any S-expression. 

(define rember 
(lambda (s l) 

(cond 

((null? 1) (quote ())) 

((atom? (car l)) 

(cond 

((equal? (car l) s) (cdr /)) 

(else (cons (car l) 

(rember s (cdr /)))))) 

(else (cond 

((equal? (car l) s) (cdr l)) 
(else (cons (car l) 

(rember s 
(cdr l))))))))) 


Obviously! 

(define rember 
(lambda (s l) 

(cond 

((null? 1) (quote ())) 

(else (cond 

((equal? (car l) s) (cdr l)) 
(else (cons (car l) 

(rember s 
[cdr /))))))))) 


Can we simplify it? 


And how does that differ? The function rember now removes the first 

matching S-expression s in l, instead of the 
first matching atom a in lat. 


Is rember a “star” function now? 

No. 

Why not? 

Because rember recurs with the cdr of l only. 

Can rember be further simplified? 

Yes, the inner (cond ...) asks questions that 
the outer (cond ...) could ask! 
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Do it! 


(define rember 
(lambda (s l) 

(cond 

((null? 1) (quote ())) 

((equal? (car l) s) (cdr l)) 

(else (cons (car l) 

(rember s (cdr /))))))) 



Does this new definition look simpler? 

Yes, it does! 

And does it work just as well? 

Yes, because we knew that all the cases and 
all the recursions were right before we 
simplified. 

Simplify insertL * 

We can’t. Before we can ask (eq? (car l) old ) 
we need to know that (car l) is an atom. 

When functions are correct and 
well-designed, we can think about them 
easily. 

And that saved us this time from getting it 
wrong. 

Can all functions that use eq? and = be 
generalized by replacing eq? and = by the 
function equal ? 

Not quite; this won’t work for eqan?, but will 
work for all others. In fact, disregarding the 
trivial example of eqan?, that is exactly what 
we shall assume. 
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Is 1 an arithmetic expression? 

Yes. 

Is 3 an arithmetic expression? 

Yes, of course. 

Is 1 + 3 an arithmetic expression? 

Yes! 

Is 1 4- 3 x 4 an arithmetic expression? 

Definitely. 

Is cookie an arithmetic expression? 

Yes. Are you almost ready for one? 

* 

And, what about 3 T y + 5 

Yes. 

What is an arithmetic expression in your 
words? 

In ours: 

“For the purpose of this chapter, an 
arithmetic expression is either an atom 
(including numbers), or two arithmetic 
expressions combined by +, x, or T.” 

What is (quote a) 

a. 

■ 

What is (quote +) 

The atom +, not the operation HK 

What does (quote x) stand for? 

The atom x, not the operation x. 

• • 

Is ( eq? (quote a) y) true or false 
where y is a 

True. 

Is (eq? x y) true or false 
where a; is a 
and 
y is a 

% 

That’s the same question again. And the 
answer is still true. 
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Is (n + 3) an arithmetic expression? 

Not really, since there are parentheses 
around n + 3. Our definition of arithmetic 
expression does not mention parentheses. 

Could we think of (n + 3) as an arithmetic 
expression? 

Yes, if we keep in mind that the parentheses 
are not really there. 

What would you call (n + 3) 

We call it a representation for n + 3. 

Why is (n + 3) a good representation? 

Because 

1. (n + 3) is an S-expression. 

It can therefore serve as an argument for a 
function. 

2. It structurally resembles n + 3. 

True or false: ( numbered ? x) 
where a; is 1 

True. 

How do you represent 3 + 4x5 

(3 + (4 x 5)). 

True or false: ( numbered ? y) 
where y is (3 + (4 t 5)) 

True. 

True or false: ( numbered ? z) 
where z is (2 x sausage) 

False, because sausage is not a number. 

What is numbered? 

It is a function that determines whether a 
representation of an arithmetic expression 
contains only numbers besides the +, x, 
and t. 
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What is the first question? ( atom? aexp). 


What is ( eq? (car (cdr aexp)) (quote +)) It is the second question. 

Can you guess the third one? (eq? (car (cdr aexp)) (quote x)) is perfect. 

And you must know the fourth one. (eq? (car (cdr aexp)) (quote T)), of course. 

Should we ask another question about aexp No! So we could replace the previous 

question by else. 

Why do we ask four, instead of two, Because we consider (1 + 3) as a 

questions about arithmetic expressions? representation of an arithmetic expression in 

After all, arithmetic expressions like (1 4- 3) list form, not as a list itself. And, an 
are lats. arithmetic expression is either a number, or 

two arithmetic expressions combined by +, 
x, or t. 
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Now you can almost write numbered? 


Here is our proposal: 


(define numbered? 

(lambda ( aexp) 

(cond 

{{atom? aexp) {number? aexp)) 

{{eq? {car {cdr aexp)) (quote +)) 

...) 

{{eq? {car {cdr aexp)) (quote x)) 
• ••) 

{{eq? {car {cdr aexp)) (quote T)) 

• ••)))) 


Why do we ask {number? aexp) when we 
know that aexp is an atom? 

Because we want t o know i f all arithmetic 
expressions that are atoms are numbers. 

What do we need to know if the aexp consists 
of two arithmetic expressions combined by + 

We need to find out whether the two 
subexpressions are numbered. 

In which position is the first subexpression? 

It is the car of aexp. 

In which position is the second 
subexpression? 

It is the car of the cdr of the cdr of aexp. 

So what do we need to ask? 

{numbered? {car aexp)) and 
{numbered? {car {cdr {cdr aexp)))). 

Both must be true. 

What is the second answer? 

(and {numbered? {car aexp)) 

{numbered? {car {cdr {cdr aexp))))) 
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Try numbered? again. 


(define numbered? 
(lambda (a exp) 
(cond 


{{atom? aexp) {number? aexp)) 
{{eq? {car {cdr aexp)) (quote +)) 
(and {numbered? {car aexp)) 
{numbered? 

{car {cdr {cdr aexp)))))) 
{{eq? {car {cdr aexp)) (quote x)) 
(and {numbered? {car aexp)) 
{numbered? 

{car {cdr {cdr aexp)))))) 
{{eq? {car {cdr aexp)) (quote T)) 
(and {numbered? {car aexp)) 
{numbered? 

{car {cdr {cdr aexp))))))))) 


Since aexp was already understood to be an 
arithmetic expression, could we have written 
numbered? in a simpler way? 


Yes: 


(define numbered? 
(lambda {aexp) 
(cond 


{{atom? aexp) {number? aexp)) 
(else 

(and {numbered? {car aexp)) 
{numbered? 

{car {cdr {cdr aexp))))))))) 


Why can we simplify? 

Because we know we’ve got the function 
right. 

What is {value u) 

13. 

where u is 13 


{value x) 

4. 

where 


x is (1 + 3) 
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( value y) 
where 

y is (1 + (3 t 4)) 

82. 


(value z) 
where z is cookie 

No answer. 


(value nexp ) returns what we think is the 
natural value of a numbered arithmetic 
expression. 

We hope. 


How many questions does value ask about 
nexp 

Four. 


Now, let’s attempt to write value 



(define value 
(lambda {nexp) 

(cond 

{{atom? nexp) ...) 

{{eq? {car {cdr nexp)) (quote 
...) 

{{eq? {car {cdr nexp)) (quote 
• ••) 

(else .. .)))) 

+)) 


X)) 




What is the natural value of an arithmetic 
expression that is a number? 

It is just that number. 


What is the natural value of an arithmetic 
expression that consists of two arithmetic 
expressions combined by + 

If we had the natural value of the two 
subexpressions, we could just add up the two 
values. 

Can you think of a way to get the value of 
the two subexpressions in (1 + (3 x 4)) 

Of course, by applying value to 1, and 
applying value to (3 x 4). 
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And in general? 


By recurring with value on the 
subexpressions. 


The Seventh Commandment 

Recur on the subparts that are of the same nature: 

• On the sublists of a list. 

• On the subexpressions of an arithmetic expression. 


Give value another try. 


(define value 
(lambda ( nexp) 

(cond 

{{atom? nexp) nexp) 

{{eq? {car {cdr nexp)) (quote +)) 
(+ {value {car nexp)) 

{value {car {cdr {cdr nexp)))))) 
{{eq? {car {cdr nexp)) (quote x)) 
(x {value {car nexp)) 

{value {car {cdr {cdr nexp)))))) 
(else 

(T {value {car nexp)) 

{value 

{car {cdr {cdr nexp))))))))) 


Can you think of a different representation of 

There are several of them. 

arithmetic expressions? 


Could (3 4+) represent 3 + 4 

Yes. 

Could (+3 4) 

Yes. 

Or (plus 3 4) 

Yes. 
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Is (+ (x 3 6) (t 8 2)) a representation of an 
arithmetic expression? 

Yes. 

Try to write the function value for a new 
kind of arithmetic expression that is either: 

— a number 

— a list of the atom + followed by 
two arithmetic expressions, 

— a list of the atom x followed by 
two arithmetic expressions, or 

— a list of the atom t followed by 
two arithmetic expressions. 

What about 

(define value 
(lambda (nexp) 

(cond 

((atom? nexp) nexp) 

((eq? (car nexp) (quote +)) 

(Hb (value (cdr nexp)) 

(value (cdr (cdr nexp))))) 

((eq? (car nexp) (quote x)) 

(x (value (cdr nexp)) 

(value (cdr (cdr nexp))))) 

(else 

(t (value (cdr nexp)) 

(value (cdr (cdr nexp)))))))) 



You guessed it. 

It’s wrong. 

Let’s try an example. 

(+ 1 3). 

(atom? nexp) 
where 

nexp is (+ 1 3) 

No. 

( eq? ( car nexp ) (quote +)) 
where 

nexp is (+ 1 3) 

Yes. 

And now recur. 

Yes. 

What is ( cdr nexp) 
where 

nexp is (+ 1 3) 

(13). 
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(1 3) is not our representation of an 
arithmetic expression. 

1 

< 

• 

No, we violated The Seventh Commandment. 
(1 3) is not a subpart that is a representation 
of an arithmetic expression! We obviously 
recurred on a list. But remember, not all lists 
are representations of arithmetic expressions. 
We have to recur on subexpressions. 

How can we get the first subexpression of a 
representation of an arithmetic expression? 

By taking the car of the cdr. 

Is ( cdr (cdr nexp )) an arithmetic expression 
where 

nexp is (+ 1 3) 

No, the cdr of the cdr is (3), and (3) is not 
an arithmetic expression. 

Again, we were thinking of the list (+13) 
instead of the representation of an arithmetic 
expression. 

Taking the car of the cdr of the cdr gets us 
back on the right track. 

What do we mean if we say the car of the 
cdr of nexp 

The first subexpression of the representation 
of an arithmetic expression. 

Let’s write a function 1st-sub-exp for 
arithmetic expressions. 


(define 1st-sub-exp 
(lambda {aexp) 

(cond 

(else ( car (cdr aexp)))))) 



Why do we ask else 

Because the first question is also the last 
question. 

Can we get by without (cond ... ) if we 
don’t need to ask questions? 

Yes, remember one-liners from chapter 4. 

(define 1st-sub-exp 
(lambda {aexp) 

{car {cdr aexp)))) 
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Write 2nd-sub-exp for arithmetic expressions 


(define 2nd-sub-exp 
(lambda ( aexp) 

(car (cdr (cdr aexp))))) 


Finally, let’s replace (car nexp) by 
{operator nexp) 


(define operator 
(lambda {aexp) 
{car aexp))) 
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Wasn’t this easy? 


Yes, because we used help functions to hide 
the representation. 


The Eighth Commandment 

Use help functions to abstract from representations. 


Have we seen representations before? 

Yes, we just did not tell you that they were 
representations. 

For what entities have we used 
representations? 

Truth-values! Numbers! 

Numbers are representations? 

Yes. For example 4 stands for the concept 
four. We chose that symbol because we are 
accustomed to arabic representations. 

What else could we have used? 

(() () () ()) would have served just as well. 
What about ((((()))))? How about (1 V)? 

Do you remember how many primitives we 
need for numbers? 

Four: number?, zero?, addl , and subl . 

Let’s try another representation for numbers. 
How shall we represent zero now? 

0 is our choice. 

How is one represented? 

(())• 

How is two represented? 

(0 ())• 
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Got it? What’s three? 


Three is (() () ()). 


Write a function to test for zero. 


Can you write a function that is like addl 


What about subl 


Is this correct? 



Let’s see. 


What is (zubl n) where n is () 


No answer, but that’s fine. 
— Recall The Law of Cdr. 


Rewrite + using this representation 


(define HH 

(lambda (n m) 

(cond 

(( sero? m) n) 

(else (eddl (HH n (zubl rn))))))) 


Has the definition of + changed? 


Yes and no. It changed, but only slightly 
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Recall lat? 

Easy: 


(define lat? 

(lambda (l) 

(cond 

((null? 1) #t) 

((atom? (car l)) (lat? (cdr l))) 

(else #f)))) 

But why did you ask? 

Do you remember what the value of (lat? Is) 
is where Is is (1 2 3) 

#t, of course. 

What is (1 2 3) with our new numbers? 

((()) (00) (()()()))• 

What is (lat? Is) where 

b is ((()) (00) (()()())) 

It is very false. 

Is that bad? 

You must beware of shadows. 
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Is this a set? 

(apple peaches apple plum) 

No, since apple appears more than once. 

True or false: (set? lat) 
where 

lat is (apples peaches pears plums) 

#t, because no atom appears more than 
once. 

How about (set? lat) 
where 
lat is () 

#t, because no atom appears more than 
once. 

Try to write set? 


(define set? 

(lambda (lat) 

(cond 

((null? lat) #t) 

(else 

(cond 

((member? (car lat) (cdr lat)) 
#0 

(else (set? (cdr lat)))))))) 



Simplify set? 


(define set? 

(lambda (lat) 

(cond 

((null? lat) #t) 

((member? (car lat) (cdr lat)) #f) 
(else (set? (cdr lat)))))) 



Does this work for the example 
(apple 3 pear 4 9 apple 3 4) 

Yes, since member? is now written using 
equal? instead of eq?. 

Were you surprised to see the function 
member? appear in the definition of set? 

You should not be, because we have written 
member? already, and now we can use it 
whenever we want. 
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What is ( makeset lat) 
where 

lat is (apple peach pear peach 

plum apple lemon peach) 

(apple peach pear plum lemon). 

Try to write makeset using member? 


(define makeset 
(lambda (lat) 

(cond 

((null? lat) (quote ())) 

((member? (car lat) (cdr lat)) 
(makeset (cdr lat))) 

(else (cons (car lat) 

(makeset (cdr lat))))))) 



Are you surprised to see how short this is? 

We hope so. But don’t be afraid: it’s right. 

Using the previous definition, what is the 

result of ( makeset lat) 

where 

lat is (apple peach pear peach 

plum apple lemon peach) 

(pear plum apple lemon peach). 

Try to write makeset using multirember 


(define makeset 
(lambda (lat) 

(cond 

((null? lat) (quote ())) 

(else (cons (car lat) 

(makeset 

(multirember (car lat) 

(cdr lat)))))))) 



What is the result of ( makeset lat) using this 

second definition 

where 

lat is (apple peach pear peach 

plum apple lemon peach) 

(apple peach pear plum lemon). 
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Describe in your own words how the second Here are our words: 

definition of makeset works. “The function makeset remembers to cons 

the first atom in the lat onto the result of 
the natural recursion, after removing all 
occurrences of the first atom from the rest 
of the lat.” 


Does the second makeset work for the 
example 

(apple 3 pear 4 9 apple 3 4) 

Yes, since multirember is now written using 
equal? instead of eq?. 

What is ( subset? setl set2) 
where 

setl is (5 chicken wings) 
and 

set2 is (5 hamburgers 

2 pieces fried chicken and 
light duckling wings) 

#t , because each atom in setl is also in set2. 

What is ( subset? setl set2) 
where 

setl is (4 pounds of horseradish) 
and 

set2 is (four pounds chicken and 

5 ounces horseradish) 

#f. 

Write subset? 


(define subset? 

(lambda ( setl set2) 

(cond 

((null? setl) #t ) 

(else (cond 

((member? (car setl) set2) 
(subset? (cdr setl) set2)) 
(else #f )))))) 
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Can you write a shorter version of subset? 


(define subset? 

(lambda (setl set2) 

(cond 

((null? setl ) #t) 
((member? (car setl) set2) 
(subset? (cdr setl) set2)) 
(else #f)))) 


Try to write subset? with (and ...) 


(define subset? 

(lambda (setl set2) 

(cond 

((null? setl) #t) 

(else 

(and (member? (car setl) set2) 
(subset? (cdr setl) set2)))))) 


What is (eqset? setl set2) #t. 

where 

setl is (6 large chickens with wings) 
and 

set2 is (6 chickens with large wings) 


Write eqset? 


(define eqset? 

(lambda (setl set2) 

(cond 

((subset? setl set2) 
(subset? set2 setl)) 
(else #f)))) 


Can you write eqset? with only one 
cond-line? 


(define eqset? 

(lambda (setl set2) 

(cond 

(else (and (subset? setl set2) 

(subset? set2 setl)))))) 


114 


Chapter 7 














Friends and Relations 


115 











(and macaroni). 


What is (intersect setl set2) 
where 

setl is (stewed tomatoes and macaroni) 
and 

set2 is (macaroni and cheese) 


Now you can write the short version of 
intersect 


What is (union setl set2) 
where 

setl is (stewed tomatoes and 

macaroni casserole) 

and 

set2 is (macaroni and cheese) 


Write union 


(define intersect 
(lambda (setl set2) 

(cond 

((null? setl) (quote ())) 
((member? (car setl) set2) 

(cons (car setl) 

(intersect (cdr setl) set2))) 
(else (intersect (cdr setl) set2))))) 



(define union 
(lambda (setl set2) 

(cond 

((null? setl) set2) 

((member? (car setl) set2) 

(union (cdr setl) set2)) 

(else (cons (car setl) 

(union (cdr setl) set2)))))) 
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In our words: 

“It is a function that returns all the atoms 
in setl that are not in set2 
That is, xxx is the (set) difference function. 


What is {intersectall l-set ) (a), 

where 

l-set is ((a b c) (cade) (e f g h a b)) 


What is ( intersectall l-set) (6 and), 

where 

l-set is ((6 pears and) 

(3 peaches and 6 peppers) 

(8 pears and 6 plums) 

(and 6 prunes with some apples)) 


Is this a pair? 1 Yes, because it is a list with only two atoms, 

(pear pear) 


(define intersectall 
(lambda (l-set) 

(cond 

((null? (cdr l-set)) (car l-set)) 

(else (intersect (car l-set) 

(intersectall (cdr l-set))))))) 


Now, using whatever help functions you 
need, write intersectall assuming that the list 
of sets is non-empty. 


What is this function? 



A pair in Scheme (or Lisp) is a different but related object. 
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Is this a pair? 

(3 7) 

Yes. 

Is this a pair? 

((2) (pair)) 

Yes, because it is a list with only two 
S-expressions. 

{a-pair? 1) 
where 

l is (full (house)) 

#t, 

because it is a list with only two 
S-expressions. 

Define a-pair? 


(define a-pair? 

(lambda (x) 

(cond 

{{atom? x ) #f) 

{{null? x ) #f) 

{{null? {cdr x)) #f) 

{{null? {cdr {cdr x))) #t) 

(else #f)))) 



How can you refer to the first S-expression of 
a pair? 

By taking the car of the pair. 

How can you refer to the second S-expression 
of a pair? 

By taking the car of the cdr of the pair. 

How can you build a pair with two atoms? 

t 

1 

You cons the first one onto the cons of the 
second one onto (). That is, 

{cons xl {cons x2 (quote ()))). 

How can you build a pair with two 

S-expressions? : 

You cons the first one onto the cons of the 
second one onto (). That is, 

{cons xl {cons x2 (quote ()))). 

Did you notice the differences between the 
last two answers? 

No, there aren’t any. 
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(define first 
(lambda ( p ) 

(cond 

(else (car p))))) 


(define second 
(lambda ( p ) 

(cond 

(else (car (cdr p)))))) 


(define build 
(lambda (si s2) 

(cond 

(else (cons si 

(cons s2 (quote ()))))))) 

What possible uses do these three functions 
have? 


They are used to make representations of 
pairs and to get parts of representations of 
pairs. See chapter 6. 

They will be used to improve readability, 
as you will soon see. 

Redefine first, second , and build as 
one-liners. 


Can you write third as a one-liner? 


(define third 
(lambda (/) 

(car (cdr (cdr /))))) 


Is l a rel where 

l is (apples peaches pumpkin pie) 


No, since l is not a list of pairs. We use rel to 
stand for relation. 


Is l a rel where No, since l is not a set of pairs. 

I is ((apples peaches) 

(pumpkin pie) 

(apples peaches)) 


Is l a rel where 

Yes. 

l is ((apples peaches) (pumpkin pie)) 


Is l a rel where 

Yes. 

l is ((4 3) (4 2) (7 6) (6 2) (3 4)) 
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Is rel a fun 
where 

rel is ((4 3) (4 2) (7 6) (6 2) (3 4)) 

No. We use fun to stand for function. 

What is [fun? rel) 
where 

rel is ((8 3) (4 2) (7 6) (6 2) (3 4)) 

#t, because ( firsts rel) is a set 
—See chapter 3. 

What is (fun? rel) 
where 

rel is ((d 4) (b 0) (b 9) (e 5) (g 4)) 

#f, because b is repeated. 

Write fun? with set? and firsts 


(define fun? 

(lambda (rel) 

(set? (firsts rel)))) 



Is fun? a simple one-liner? 

It sure is. 

How do we represent a finite function? 

For us, a finite function is a list of pairs in 
which no first element of any pair is the same 
as any other first element. 

What is (revrel rel) 
where 

rel is ((8 a) (pumpkin pie) (got sick)) 

((a 8) (pie pumpkin) (sick got)). 



You can now write revrel 

(define revrel 
(lambda (rel) 

(cond 

((null? rel) (quote ())) 

(else (cons (build 

(second (car rel)) 

(first (car rel))) 

(revrel (cdr rel))))))) 
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Would the following also be correct: 


(define revrel 
(lambda ( rel) 
(cond 


((null? rel) (quote ())) 
(else (cons (cons 


(car (cdr (car rel))) 
(cons (car (car rel)) 
(quote ()))) 
(revrel (cdr rel))))))) 


Yes, but now do you see how representation 
aids readability? 


Suppose we had the function revpair that 
reversed the two components of a pair like 
this: 


How would you rewrite revrel to use this help 
function? 


No problem, and it is even easier to read: 



(define revrel 
(lambda (rel) 
(cond 


((null? rel) (quote ())) 

(else (cons (revpair (car rel)) 

(revrel (cdr rel))))))) 


Can you guess why fun is not a fullfun 
where 

fun is ((8 3) (4 2) (7 6) (6 2) (3 4)) 


fun is not a fullfun, since the 2 appears more 
than once as a second item of a pair. 


Why is #t the value of (fullfun? fun) 
where 

fun is ((8 3) (4 8) (7 6) (6 2) (3 4)) 


Because (3 8 6 2 4) is a set 


What is (fullfun? fun) #f. 

where 

fun is ((grape raisin) 

(plum prune) 

(stewed prune)) 
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What is ( fullfun? fun) 
where 

fun is ((grape raisin) 

(plum prune) 
(stewed grape)) 


# t , because (raisin prune grape) is a set 


Define fullfun? 


(define fullfun? 

(lambda (fun) 

(set? (seconds fun)))) 


Can you define seconds 


It is just like firsts 


What is another name for fullfun? 


one-to-one?. 


Can you think of a second way to write 
one-to-one? 


(define one-to-one? 
(lambda (fun) 

(fun? (revrel fun)))) 


Is ((chocolate chip) (doughy cookie)) a 
one-to-one function? 


Yes, and you deserve one now! 


Go and get one! 


122 


Chapter 7 












Or better yet, make your own 


(define cookies 
(lambda () 

(bake 

(quote (350 degrees)) 

(quote (12 minutes)) 

(mix 

(quote (walnuts 1 cup)) 

(quote (chocolate-chips 16 ounces)) 

(mix 

(mix 

(quote (flour 2 cups)) 

(quote (oatmeal 2 cups)) 

(quote (salt .5 teaspoon)) 

(quote (baking-powder 1 teaspoon)) 
(quote (baking-soda 1 teaspoon))) 
(mix 

(quote (eggs 2 large)) 

(quote (vanilla 1 teaspoon)) 

(cream 

(quote (butter 1 cup)) 

(quote (sugar 2 cups))))))))) 
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Remember what we did in rember and 
insertL at the end of chapter 5? 


We replaced eq? with equal? 


Can you write a function rember-f that No, because we have not yet told you how. 

would use either eq? or equal? 


How can you make rember remove the first a 
from (b c a) 


By passing a and (b c a) as arguments to 
rember. 


How can you make rember remove the first c 
from (b c a) 

How can you make rember-f use equal? 
instead of eq? 

What is ( rember-f test? a l) 
where 

test? is = l 
a is 5 
and 

l is (6 2 5 3) 


By passing c and (b c a) as arguments to 
rember. 

By passing equal? as an argument to 
rember-f. 

(6 2 3). 


1 L: (rember-f (function =) 5 ’(6 2 5 3)), 
but there is more. 

What is ( rember-f test? a l) (beans are good), 

where 

test? is eq? 
a is jelly 
and 

l is (jelly beans are good) 

And what is ( rember-f test? a l) (lemonade and (cake)), 

where 

test? is equal? 
a is (pop corn) 
and 

l is (lemonade (pop corn) and (cake)) 


Lambda the Ultimate 


125 










Try to write rember-f 


What about the short version? 


(define rember-f 
(lambda ( test? a l) 

(cond 

((null? I ) (quote ())) 
(else (cond 


((test? (car l) a) 1 (cdr /)) 
(else (cons (car l) 

(rember-f test? a 
(cdr l))))))))) 


This is good! 


L: (funcall test? (car 1) a). Use funcall when 
invoking a function argument or a function that has not 
been defuned. 


(define rember-f 
(lambda (test? a l) 

(cond 

((null? 1) (quote ())) 
((test? (car l) a) (cdr l)) 
(else (cons (car l) 

(rember-f test? a 
(cdr 0)))))) 


How does (rember-f test? a l) act 
where test? is eq? 


(rember-f test? a l) 

where test? is eq?, acts like rernber. 


And what about (rember-f test? a l) 
where test? is equal? 


This is just rernber with eq? replaced by 
equal ?. 


Now we have four functions that do almost 
the same thing. 


Yes: 

rernber with = 
rernber with equal? 
rernber with eq? 
and 

rember-f. 
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And rember-f can behave like all the others. 

Let’s generate all versions with rember-f. 

What kind of values can functions return? 

Lists and atoms. 

What about functions themselves? 

Yes, 

but you probably did not know that yet. 

Can you say what (lambda (a l) ...) is? 

(lambda (a l) ...) is a function of two 
arguments, a and l. 

Now what is 

(lambda (a) 

(lambda (x) 

( eq? x a))) 

It is a function that, when passed an 
argument a, returns the function 

(lambda (x) 

(eq? x a)) 


where a is just that argument. 

Is this called “Curry-ing?” 

Thank you, Moses Schonfinkel 

(1889-1942). 

It is not called “Schonfinkel-ing.” 

Thank you, Haskell B. Curry 

(1900-1982). 

Using (define ...) give the preceding 
function a name. 


(define eq?-c 1 
(lambda (a) 

(lambda (x) 

(eq? x a)))) 

This is our choice. 


L: (defun eq?-c (a) 

(function 
(lambda ( x ) 

(eq x a)))) 

What is ( eq?-c k) 
where k is salad 

Its value is a function that takes x as an 
argument and tests whether it is eq? to salad. 
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So let’s give it a name using (define ...) Okay. 


(define 1 eq?-salad ( eq?-c k)) 


where k is salad 


1 L: (setq eq?-salad (eq?-c ’salad)). 

Use setq to define a function that can be funcalled. 


What is ( eq?-salad y) 1 #t. 

where y is salad 


1 L: (funcall eq?-salad y), since eq?-salad has not been 
defuned. 


And what is {eq?-salad y) #f. 

where y is tuna 


Do we need to give a name to eq?-salad No, we may just as well ask 

(( eq?-c x) y) 1 
where 

x is salad 
and 

y is tuna. 


1 L: (funcall (eq?-c x) y), since (eq?-c x) is a function 
that has not been defuned. 


Now rewrite rember-f as a function of one 
argument test? that returns an argument like 
rember with eq? replaced by test? 


(define rember-f 
(lambda {test?) 

(lambda (a l) 

(cond 

{{null? 1) (quote ())) 
{{test? {car l) a) {cdr l)) 
(else {cons {car l) ...)))))) 

is a good start. 
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Describe in your own words the result of 
( rember-f test?) 
where 

test? is eq? 

Give a name to the function returned by 
( rember-f test?) 
where 

test? is eq? 


It is a function that takes two arguments, a 
and l. It compares the elements of the list 
with a, and the first one that is eq? to a is 
removed. 


(define rember-eq? ( rember-f test?)) 

where 

test? is eq?. 


What is ( rember-eq? a l) (salad is good). 

where a is tuna 

and 

l is (tuna salad is good) 


Did we need to give the name rember-eq? to 

the function ( rember-f test?) 

where 

test? is eq? 


Now, complete the line 
(cons (car l) ...) 

in rember-f so that rember-f works. 


No, we could have written 
(( rember-f test?) a l) 
where 

test? is eq? 
a is tuna 
and 

l is (tuna salad is good). 


(define rember-f 
(lambda ( test?) 

(lambda (a l) 

(cond 

((null? 1) (quote ())) 
((test? (car l) a) (cdr l)) 
(else (cons (car l) 

((rember-f test?) a 
(cdr l )))))))) 


What is ((rember-f eq?) a l) (shrimp salad and salad). 

where a is tuna 

and 

l is (shrimp salad and tuna salad) 
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Are insertR and insertL similar? Only the middle piece is a bit different. 


Can you write a function insert-g that would If you can, get yourself some coffee cake and 
insert either at the left or at the right? relax! Otherwise, don’t give up. You’ll see it 

in a minute. 
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Which pieces differ? 


Put the difference in words! 


So how can we get rid of the difference? 


Define a function seqL that 

1. takes three arguments, and 

2. conse s the first argument 

onto the result of cons ing 
the second argument onto 
the third argument. 



Do you know why we wrote these functions? 
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The second lines differ from each other. In 
insertL it is: 

(( eq? {car l) old) 

(cons new (cons old (cdr l )))), 

but in insertR it is: 

{{eq? {car l) old) 

{cons old {cons new {cdr l)))). 

We say: 

“The two functions cons old and new in a 
different order onto the cdr of the list 

You probably guessed it: by passing in a 
function that expresses the appropriate 
consing. 


(define seqL 

(lambda {new old l) 

{cons new {cons old /)))) 


A function that 

1. takes three arguments, and 

2. conse s the second argument 

onto the result of consing 
the first argument onto 
the third argument. 

Because they express what the two differing 
lines in insertL and insertR express. 









Try to write the function insert-g of one 
argument seq 

which returns insertL 

where seq is seqL 

and 

which returns insertR 

where seq is seqR 


Now define insertL with insert-g 


And insertR. 



Is there something unusual about these two Yes. Earlier we would probably have written 
definitions? (define insertL ( insert-g seq)) 

where 

seq is seqL 
and 

(define insertR ( insert-g seq)) 
where 

seq is seqR. 

But, using “where” is unnecessary when you 
pass functions as arguments. 


Is it necessary to give names to seqL and Not really. We could have passed their 

seqR definitions instead. 


Define insertL again with insert-g 
Do not pass in seqL this time. 


(define insertL 
{insert-g 

(lambda {new old l) 

{cons new {cons old l))))) 
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Is this better? 


Yes, because you do not need to remember as 
many names. You can 

(rember func-name “your-mind”) 
where func-name is seqL. 

Do you remember the definition of subst Here is one. 



Does this look familiar? Yes, it looks like insertL or insertR. Just the 

answer of the second cond-line is different. 


Define a function like seqL or seqR for subst 


And now define subst using insert-g 



And what do you think yyy is 



where 


(define seqrem 
(lambda (new old l) 

0 ) 


Surprise! It is our old friend rember 
Hint: Step through the evaluation of 

(yyy « 0 

where 

a is sausage 
and 

l is (pizza with sausage and bacon). 
What role does #f play? 
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What you have just seen is the power of abstraction 


The Ninth Commandment 


Abstract common patterns with a new function 


Have we seen similar functions before? 


Yes, we have even seen functions with similar 
lines. 


Do you remember value from chapter 6? 


(define value 
(lambda ( nexp) 
(cond 


{{atom? nexp) nexp) 

{{eq? {operator nexp) 

(quote +)) 

(■> {value {lst-sub-exp nexp)) 
{value {2nd-sub-exp nexp)))) 
{{eq? {operator nexp) 

(quote X)) 

(x {value {lst-sub-exp nexp)) 
{value {2nd-sub-exp nexp)))) 
(else 

(t {value {lst-sub-exp nexp)) 
{value {2nd-sub-exp nexp))))))) 


Do you see the similarities? 


The last three answers are the same except 
for the +, x, and t. 


Can you write the function atom-to-function 
which: 

1. Takes one argument x and 

2. returns the function + 

if {eq? x (quote +)) 
returns the function x 

if {eq? x (quote x)) and 
returns the function t 

otherwise? 


(define atom-to-function 

(lambda (x) 

(cond 

{{eq? x (quote +)) -Q- ) 
{{eq? x (quote x)) x) 
(else t)))) 
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The function +, not the atom +. 


What is ( atom-to-function (operator nexp)) 
where 

nexp is (+ 5 3) 

Can you use atom-to-function to rewrite Of course. 

value with only two cond-lines? 

(define value 
(lambda (nexp) 

(cond 

((atom? nexp) nexp) 

(else 

((atom-to-function 
(operator nexp)) 

(value (lst-sub-exp nexp)) 

(value (2nd-sub-exp nexp))))))) 

Is this quite a bit shorter than the first Yes, but that’s okay. We haven’t changed its 

version? meaning. 

Time for an apple? One a day keeps the doctor away. 


Here is multirember again. 

(define multirember 
(lambda (a lat) 

(cond 

((null? lat) (quote ())) 
((eq? (car lat) a) 
(multirember a (cdr lat))) 
(else (cons (car lat) 

(multirember a 
(cdr lat))))))) 

Write multirember-f 


No problem. 

(define multirember-f 
(lambda (test?) 

(lambda (a lat) 

(cond 

((null? lat) (quote ())) 

((test? a (car lat)) 
((multirember-f test?) a 
(cdr lat))) 

(else (cons (car lat) 

((multirember-f test?) a 
(cdr lat)))))))) 


What is ((multirember-f test?) a lat) (shrimp salad salad and), 

where 

test? is eq? 
a is tuna 
and 

lat is (shrimp salad tuna salad and tuna) 
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Wasn’t that easy? 

Yes. 




Define multirember-eq? using multirember-f 


(define multirember-eq? 

[multirember-f test?)) 


where test? is eq?. 

Do we really need to tell multirember-f 
about tuna 


As multirember-f visits all the elements in 
lat, it always looks for tuna. 

Does test? change as multirember-f goes 
through lat 

No, test? always stands for eq?, just as a 
always stands for tuna. 

Can we combine a and test? 


Well, test? could be a function of just one 
argument and could compare that argument 
to tuna. 

How would it do that? 


The new test? takes one argument and 
compares it to tuna. 

Here is one way to write this function. 

Yes, and here is a different way: 

(define eq?-tuna 
( eq?-c k)) 


(define eq?-tuna 

( eq?-c (quote tuna))) 

where k is tuna 

Can you think of a different way of writing 
this function? 

i 



Have you ever seen definitions that contain Yes, 0, (quote x), (quote +), and many 
atoms? more. 
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This is not really difficult. 


Perhaps we should now write multiremberT 
which is similar to multirember-f 
Instead of taking test? and returning a (define multiremberT 

function, multiremberT takes a function like (lambda {test? lat) 

eq?-tuna and a lat and then does its work. (cond 

{{null? lat) (quote ())) 

{{test? {car lat)) 

{multiremberT test? {cdr lat))) 

(else {cons {car lat) 

{multiremberT test? 

(cdr lat))))))) 


What is {multiremberT test? lat) (shrimp salad salad and), 

where 

test? is eq?-tuna 
and 

lat is (shrimp salad tuna salad and tuna) 

Is this easy? It’s not bad. 

How about this? Now that looks really complicated! 
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Here is something simpler: 


(define a-friend 
(lambda (x y) 
(null? y))) 


Yes, it is simpler. It is a function that takes 
two arguments and asks whether the second 
one is the empty list. It ignores its first 
argument. 


What is the value of This is not simple. 

(multirember&co a lat col) 
where 
a is tuna 

lat is (strawberries tuna and swordfish) 
and 

col is a-friend 


So let’s try a friendlier example. What is the 
value of ( multirember&co a lat col) 
where 
a is tuna 
lat is () 
and 

col is a-friend 


#t, because a-friend is immediately used in 
the first answer on two empty lists, and 
a-friend makes sure that its second argument 
is empty. 


And what is ( multirember&co a lat col) 
where 
a is tuna 
lat is (tuna) 
and 

col is a-friend 


multirember&co asks 

( eq? (car lat) (quote tuna)) 
where 

lat is (tuna). 

Then it recurs on (). 


What are the other arguments that The first one is clearly tuna. The third 

multirember&co uses for the natural argument is a new function, 

recursion? 


What is the name of the third argument? col. 


Do you know what col stands for? The name col is short for “collector.” 

A collector is sometimes called a 
“continuation.” 
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Here is the new collector: 

(define new-friend 
(lambda (newlat seen) 

(col newlat 

(cons (car lat) seen)))) 

where 

(car lat) is tuna 
and 

col is a-friend 

Can you write this definition differently? 


Do you mean the new way where we put tuna 
into the definition? 

(define new-friend 

(lambda (newlat seen) 

(col newlat 

(cons (quote tuna) seen)))) 

where 

col is a-friend. 


Can we also replace col with a-friend in such Yes, we can: 

definitions because col is to a-friend what - 

(car lat) is to tuna (define new-friend 

(lambda (newlat seen) 

( a-friend newlat 

(cons (quote tuna) seen)))) 


And now? 

multir ember & co finds out that ( null? lat) is 
true, which means that it uses the collector 
on two empty lists. 

Which collector is this? 

It is new-friend. 

How does a-friend differ from new-friend 

new-friend uses a-friend on the empty list 
and the value of 

(cons (quote tuna) (quote ())). 

And what does the old collector do with such 
arguments? 

It answers #f, because its second argument 
is (tuna), which is not the empty list. 

What is the value of 

( multirember&co a lat a-friend) 
where a is tuna 
and 

lat is (and tuna) 

This time around multirember&co recurs 
with yet another friend. 

(define latest-friend 
(lambda ( newlat seen) 

( a-friend (cons (quote and) newlat) 
seen))) 
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And what is the value of this recursive use of #f, since ( a-friend Isl Is 2) 
multirember & co where 

Isl is (and) 
and 

ls2 is (tuna) 
is #f. 


What does ( multirember&co a lat f) do? It looks at every atom of the lat to see 

whether it is eq? to a. Those atoms that are 
not are collected in one list Isl ; the others 
for which the answer is true are collected in a 
second list ls2. Finally, it determines the 
value of (/ Isl Is2). 

Final question: What is the value of 3, because Is contains three things that are 

( multirember&co (quote tuna) Is col) not tuna, and therefore last-friend is used on 

where (strawberries and swordfish) and (tuna). 

Is is (strawberries tuna and swordfish) 
and 
col is 



Yes! 


It’s a strange meal, but we have seen foreign 
foods before. 


The Tenth Commandment 


Build functions to collect more than one value at a time 
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Here is an old friend. 


No problem. 


(define multiinsertL 
(lambda (new old lat) 

(cond 

((null? lat) (quote ())) 

((eq? (car lat) old) 

(cons new 
(cons old 

(multiinsertL new old 
(cdr lat))))) 

(else (cons (car lat) 

(multiinsertL new old 
(cdr lat ))))))) 

Do you also remember multiinsertR 

Now try multiinsertLR 
Hint: multiinsertLR inserts new to the left 
of oldL and to the right of oldR in lat if 
oldL are oldR are different. 


(define multiinsertR 
(lambda (new old lat) 

(cond 

((null? lat) (quote ())) 

((eq? (car lat) old) 

(cons old 
(cons new 

(multiinsertR new old 
(cdr lat))))) 

(else (cons (car lat) 

(multiinsertR new old 
(cdr lat))))))) 


This is a way of combining the two functions. 

(define multiinsertLR 
(lambda (new oldL oldR lat) 

(cond 

((null? lat) (quote ())) 

((eq? (car lat) oldL) 

(cons new 
(cons oldL 

(multiinsertLR new oldL oldR 
(cdr lat))))) 

((eq? (car lat) oldR) 

(cons oldR 
(cons new 

(multiinsertLR new oldL oldR 
(cdr lat))))) 

(else 

(cons (car lat) 

(multiinsertLR new oldL oldR 
(cdr lat))))))) 


The function multiinsertLR&co is to Does this mean that multiinsertLR&co takes 

multiinsertLR what multirember&co is to one more argument than multiinsertLR? 

multirember 


Yes, and what kind of argument is it? It is a collector function. 
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When multiinsertLR&co is done, it will use 
col on the new lat, on the number of left 
insertions, and the number of right 
insertions. Can you write an outline of 
multiinsertLR&co 


Why is col used on (quote ()) 0 and 0 when 
[null? lat) is true? 


Sure, it is just like multiinsertLR. 



The empty lat contains neither oldL nor 
oldR. And this means that 0 occurrences of 
oldL and 0 occurrences of oldR are found and 
that multiinsertLR will return () when lat is 
empty. 


So what is the value of It is the value of ( col (quote ()) 0 0), which 

{multiinsertLR&co we cannot determine because we don’t know 

(quote cranberries) what col is. 

(quote fish) 

(quote chips) 

(quote ()) 
col) 


Is it true that multiinsertLR&co will use the Yes, the first is the lat that multiinsertLR 
new collector on three arguments when would have produced for {cdr lat), oldL, and 

(car lat) is equal to neither oldL nor oldR oldR. The second and third are the number 

of insertions that occurred to the left and 
right of oldL and oldR, respectively. 
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Is it true that multiinsertLR&co then uses Yes, it is true, so we know what the new 

the function col on ( cons (car lat) newlat) collector for the last case is: 

because it copies the list unless an oldL or an (lambda ( newlat L R) 

oldR appears? (co/ ( cons (car lat) newlat) L R)). 

Why are coV s second and third arguments If (car lat) is neither oldL nor oldR , we do 

just L and R not need to insert any new elements. So, L 

and R are the correct results for both 
(cdr lat) and all of lat. 

The incomplete collector is similar to the 
extra collector. Instead of adding one to L, it 
adds one to R, and instead of cons ing new 
onto consing oldL onto newlat , it conse s oldR 
onto the result of consing new onto newlat. 


So can you fill in the dots? Yes, the final collector is 

(lambda (newlat L R) 

{col {cons oldR {cons new newlat)) 

L {addl R))). 


Here is what we have so far. And we have 
even thrown in an extra collector: 

(define multiinsertLR&co 
(lambda {new oldL oldR lat col) 

(cond 
{{null? lat) 

{col (quote ()) 0 0)) 

{{eq? {car lat) oldL) 
{multiinsertLR&co new oldL oldR 
{cdr lat) 

(lambda {newlat L R) 

{col {cons new 

{cons oldL newlat)) 

{addl L) R)))) 

{{eq? {car lat) oldR) 

(multiinsertLR&co new oldL oldR 
{cdr lat) 

(lambda {newlat L R) 

• ••))) 

(else 

{multiinsertLR&co new oldL oldR 
{cdr lat) 

(lambda {newlat L R) 

{col {cons {car lat) newlat) 

L *))))))) 

Can you fill in the dots? 
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What is the value of It is the value of ( col newlat 2 2) 

(multiinsertLR&co new oldL oldR lat col ) where 
where newlat is (chips salty and salty fish 

new is salty or salty fish and chips salty). 

oldL is fish 
oldR is chips 
and 

lat is (chips and fish or fish and chips) 

Is this healthy? Looks like lots of salt. Perhaps dessert is 

sweeter. 

Do you remember what *-functions are? Yes, all *-functions work on lists that are 

either 

— empty, 

— an atom conse d onto a list, or 

— a list consed onto a list. 


Now write the function evens-only* which 
removes all odd numbers from a list of nested 
lists. Here is even? 


Now that we have practiced this way of 
writing functions, evens-only* is just an 
exercise: 



What is the value of (evens-only* l) ((2 8) 10 (() 6) 2). 

where 

l is ((9 1 2 8) 3 10 ((9 9) 7 6) 2) 
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9+1+3+9+9+7 = 38. 


What is the sum of the odd numbers in / 
where 

Z is ((9 1 2 8) 3 10 ((9 9) 7 6) 2) 

What is the product of the even numbers in/ 2x8x 10 x6x2 = 1920. 
where 

Z is ((9 1 2 8) 3 10 ((9 9) 7 6) 2) 

Can you write the function evens-only*&co This is full of stars! 

It builds a nested list of even numbers by 
removing the odd ones from its argument 
and simultaneously multiplies the even 
numbers and sums up the odd numbers that 
occur in its argument. 

Here is an outline. Can you explain what It visits every number in the car of / and 

( evens-only*&co (car l) ...) accomplishes? collects the list without odd numbers, the 

- product of the even numbers, and the sum of 

(define evens-only*&co the odd numbers. 

(lambda (l col) 

(cond 
((null? 1) 

(col (quote ()) 1 0)) 

((atom? (car l)) 

fcond 

((even? (car /)) 

(evens-only*&co (cdr l) 

(lambda (newl p s) 

(col (cons (car l) newl) 

(x ( car .’) p) «)))) 

(else (evens-only*&co (cdr l) 

(lambda (newl p s) 

(col newl 

p (+ (car l) «))))))) 

(else (ev ens - only * & co (car l) 

•••))))) 


What does the function evens-only*&co do It uses the collector, which we haven’t 
after visiting all the numbers in (car l) defined yet. 
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And what does the collector do? 

It uses evens-only *&co to visit the cdr of l 
and to collect the list that is like (cdr l), 
without the odd numbers of course, as well 
as the product of the even numbers and the 
sum of the odd numbers. 

Does this mean the unknown collector looks 
roughly like this: 

(lambda ( al ap as) 

( evens-only*&co (cdr l) 

...)) 

Yes. 

And when ( evens-only*&co (cdr l) ...) is 
done with its job, what happens then? 

The yet-to-be-determined collector is used, 
just as before. 

What does the collector for 
(evens-only*&co ( cdr l) ...) 
do? 

It conse s together the results for the lists in 
the car and the cdr and multiplies and adds 
the respective products and sums. Then it 
passes these values to the old collector: 

(lambda (al ap as) 

(evens-only* & co (cdr l) 

(lambda (dl dp ds) 

(col (cons al dl) 

(x ap dp) 

(+ as ds))))). 

Does this all make sense now? 

Perfect. 

What is the value of 

(evens-only*&co l the-last-friend) 
where 

l is ((9 1 2 8) 3 10 ((9 9) 7 6) 2) and 

the-last-friend is defined as follows: 

(38 1920 (2 8) 10 (() 6) 2). 

(define the-last-friend 
(lambda ( newl product sum) 

(cons sum 
(cons product 
newl)))) 
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Whew! Is your brain twisted up now? 


Go eat a pretzel; don’t forget the mustard. 
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Are you in the mood for caviar 

Then we must go looking for it. 

What is ( looking a lat) 
where a is caviar 
and 

lat is (6 2 4 caviar 5 7 3) 

#t, 

caviar is obviously in lat. 

(looking a lat) 
where a is caviar 
and 

lat is (6 2 grits caviar 5 7 3) 

#f. 

Were you expecting something different? 

Yes, caviar is still in lat. 

True enough, but what is the first number 
in the lat? 

6. 

And what is the sixth element of lat 

7. 

And what is the seventh element? 

3. 

So looking clearly can’t find caviar 

True enough, 

because the third element is grits, which 
does not even resemble caviar. 

Here is looking 

We did not expect you to know this. 

(define looking 
(lambda (a lat) 

(keep-looking a (pick 1 lat) lat))) 


Write keep-looking 


(looking a lat) 
where a is caviar 
and 

lat is (6 2 4 caviar 5 7 3) 

#t, 

because (keep-looking a 6 lat) has the same 
answer as (keep-looking a (pick 1 lat) lat). 


... and Again, and Again, and Again, ... 


149 














What is ( pick 6 lat) 
where 

lat is (6 2 4 caviar 5 7 3) 

7. 

So what do we do? 

( keep-looking a 7 lat) 
where a is caviar 
and 

lat is (6 2 4 caviar 5 7 3). 

What is ( pick 7 lat) 
where 

lat is (6 2 4 caviar 5 7 3) 

3. 

So what is ( keep-looking a 3 lat) 

where a is caviar 

and 

lat is (6 2 4 caviar 5 7 3) 

It is the same as 

( keep-looking a 4 lat). 

Which is? 

#t. 

Write keep-looking 


(define keep-looking 
(lambda (u sorn lat) 

(cond 

{{number? sorn) 

{keep-looking a {pick sorn lat) lat)) 
(else {eq? sorn a))))) 



Can you guess what sorn stands for? 

Symbol or number. 

What is unusual about keep-looking 

It does not recur on a part of lat. 

We call this “unnatural” recursion. 

It is truly unnatural. 
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Does keep-looking appear to get closer to its Yes, from all available evidence, 
goal? 


Does it always get closer to its goal? 

* 

4 

Sometimes the list may contain neither caviar 
nor grits. 

That is correct. A list may be a tup. 

Yes, if we start looking in (7 2 4 7 5 6 3), we 
will never stop looking. 

What is ( looking a lat) 
where a is caviar 
and 

lat is (7 1 2 caviar 5 6 3) 

This is strange! 

Yes, it is strange. What happens? 

We keep looking and looking and looking ... 

Functions like looking are called partial 
functions. What do you think the functions 
we have seen so far are called? 

They are called total. 

Can you define a shorter function that does 
not reach its goal for some of its arguments? 


(define eternity 
(lambda (x) 

(eternity x))) 



For how many of its arguments does eternity 
reach its goal? 

None, and this is the most unnatural 
recursion possible. 

Is eternity partial? 

It is the most partial function. 

What is (shift x ) 
where 

x is ((a b) c) 

(a (•> c)). 


... and Again, and Again, and Again, ... 
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(a (b (c d))). 


What is (shift x) 
where 

x is ((a b) (c d)) 


Define shift This is trivial; it’s not even recursive! 



Here are our words: 

“The function shift takes a pair whose first 
component is a pair and builds a pair by 
shifting the second part of the first 
component into the second component.” 

Both functions change their arguments for 
their recursive uses but in neither case is the 
change guaranteed to get us closer to the 
goal. 


What does it have in common with 
keep-looking 

Why are we not guaranteed that align makes In the second cond-line shift creates an 
progress? argument for align that is not a part of the 

original argument. 

Which commandment does that violate? The Seventh Commandment. 


Describe what shift does. 


Now look at this function: 
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Is the new argument at least smaller than 
the original one? 

It does not look that way. 

Why not? 

I 

The function shift only rearranges the pair it 
gets. 

And? 

Both the result and the argument of shift 
have the same number of atoms. 

Can you write a function that counts the 
number of atoms in align’s arguments? 

No problem: 

(define length* 

(lambda ( pora) 

(cond 

{{atom? pora) 1) 

(else 

(HH {length* {first pora)) 

{length* {second pora))))))) 



Is align a partial function? 

We don’t know yet. There may be arguments 
for which it keeps aligning things. 

Is there something else that changes about 
the arguments to align and its recursive uses? 

Yes, there is. The first component of a pair 
becomes simpler, though the second 
component becomes more complicated. 

In what way is the first component simpler? 

It is only a part of the original pair’s first 
component. 

Doesn’t this mean that length* is the wrong 
function for determining the length of the 
argument? Can you find a better function? 

A better function should pay more attention 
to the first component. 

How much more attention should we pay to 
the first component? 

At least twice as much. 


... and Again, and Again, and Again, ... 
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Do you mean something like weight* 

That looks right. 

(define weight* 

(lambda ( pora) 

(cond 

(( atom? pora) 1) 

(else 

(+ (x ( weight* (first pora)) 2) 
[weight* (second pora))))))) 




What is ( weight* x) 
where 

x is ((a b) c) 

7. 

And what is ( weight* x) 
where 

x is (a (b c)) 

5. 

Does this mean that the arguments get 
simpler? 

Yes, the weight*' s of align' s arguments 
become successively smaller. 

Is align a partial function? 

No, it yields a value for every argument. 

Here is shuffle which is like align but uses 
revpair from chapter 7, instead of shift: 

The functions shuffle and revpair swap the 
components of pairs when the first 
component is a pair. 

(define shuffle 
(lambda (pora) 

(cond 

((atom? pora) pora) 

((a-pair? (first pora)) 

(shuffle (revpair pora))) 

(else (build (first pora) 

(shuffle ( second pora))))))) 



Does this mean that shuffle is total? 

We don’t know. 
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Let’s try it. What is the value of ( shuffle x) 
where 

x is (a (b c)) 

(a (b c)). 

(shuffle x) 
where 
x is (a b) 

(a b). 

Okay, let’s try something interesting. What 

is the value of ( shuffle x) 

where 

x is ((a b) (c d)) 

To determine this value, we need to find out 

what {shuffle {revpair pora)) is 

where 

pora is ((a b) (c d)). 

And how are we going t o d o that ? 

We are going to determine the value of 
{shuffle pora) 

wher e pora is ((c d) (a b)). 

Doesn’t this mean that we need to know the 

value of ( shuffle {revpair pora)) 

where 

(revpair pora ) is ((a b) (c d)) 

Yes, we do. 

And? 

The function shuffle is not total because it 
now swaps the components of the pair again, 
which means that we start all over. 

Is this function total? 

It doesn’t yield a value for 0, but otherwise 
nobody knows. Thank you, Lothar Collatz 

(1910-1990). 

(define C 
(lambda (n) 

(cond 

{{one? n ) 1) 

(else 

(cond 

{{even? n) {C (-r- n 2))) 

(else {C {addl (x 3 n ))))))))) 




... and Again, and Again, and Again, ... 
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What is the value of (A 1 0) 


2. 


(A 11) 

3. 

(A 2 2) 

7. 

Here is the definition of A 

Thank you, Wilhelm Ackermann 

(1853-1946). 

% 

(define A 
(lambda (n m) 

(cond 

((zero? n) (addl m )) 

((zero? m) (A (subl n) 1)) 

(else (A (subl n) 

(A n (subl m))))))) 



What does A have in common with shuffle 
and looking 

A’s arguments, like shuffle’s and looking’s, 
do not necessarily decrease for the recursion. 

How about an example? 

That’s easy: (A 12) needs the value of 
(A 0 (A 1 1)). And that means we need the 
value of (A 0 3). 

Does A always give an answer? 

Yes, it is total. 

Then what is (A 4 3) 

For all practical purposes, there is no answer. 

What does that mean? 

The page that you are reading now will have 
decayed long before we could possibly have 
calculated the value of (A 4 3). 


But answer came there none — 

And this was scarcely odd, because 
They’d eaten every one. 

The Walrus and The Carpenter 

—Lewis Carroll 


156 


Chapter 9 







Wouldn’t it be great if we could write a 
function that tells us whether some function 
returns with a value for every argument? 

It sure would. Now that we have seen 
functions that never return a value or return 
a value so late that it is too late, we should 
have some tool like this around. 

Okay, let’s write it. 

It sounds complicated. A function can work 
for many different arguments. 

Then let’s make it simpler. For a warm-up 
exercise, let’s focus on a function that checks 
whether some function stops for just the 
empty list, the simplest of all arguments. 

That would simplify it a lot. 

Here is the beginning of this function: 

What does it do? 

(define will-stop? 

(lambda (/) 

• ••)) 


Can you fill in the dots? 


Does will-stop ? return a value for all 
arguments? 

That’s the easy part: we said that it either 
returns #t or #f, depending on whether the 
argument stops when applied to (). 

Is will-stop? total then? 

Yes, it is. It always returns #t or #f. 

Then let’s make up some examples. Here is 
the first one. What is the value of 
{will-stop? f) 
where 

/ is length 

We know that {length l) is 0 
where l is (). 

So? 

Then the value of {will-stop? length) should 
be #t. 


... and Again, and Again, and Again, ... 
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Absolutely. How about another example? 
What is the value of ( will-stop? eternity) 

{eternity (quote ())) doesn’t return a value. 
We just saw that. 

Does this mean the value of 
{will-stop? eternity) is #f 

Yes, it does. 

Do we need more examples? 

Perhaps we should do one more example. 

Okay, here is a function that could be an 
interesting argument for will-stop? 

What does it do? 

(define last-try 
(lambda ( x ) 

(and ( will-stop? last-try) 

{eternity x)))) 


What is {will-stop? last-try) 


We need to test it on () 

If we want the value of {last-try (quote ())), 
we must determine the value of 

(and {will-stop? last-try) 

{eternity (quote ()))). 

What is the value of 

(and {will-stop? last-try) 

{eternity (quote ()))) 

That depends on the value of 
{will-stop? last-try). 

There are only two possibilities. Let’s say 
{will-stop? last-try) is #f 

Okay, then (and #f {eternity (quote ()))), 
is #f, since (and #f ...) is always #f. 

So {last-try (quote ())) stopped, right? 

Yes, it did. 

But didn’t will-stop? predict just the 
opposite? 

Yes, it did. We said that the value of 
{will-stop? last-try) was #f, which really 
means that last-try will not stop. 
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So we must have been wrong about 
( will-stop? last-try) 

That’s correct. It must return #t, because 
will-stop? always gives an answer. We said it 
was total. 

Fine. If ( will-stop? last-try) is #t 
what is the value of ( last-try (quote ())) 

Now we just need to determine the value of 
(and #t ( eternity (quote ()))), 
which is the same as the value of 
(eternity (quote ())). 

What is the value of ( eternity (quote ())) 

It doesn’t have a value. We know that it 
doesn’t stop. 

But that means we were wrong again! 

True, since this time we said that 
{will-stop? last-try) was #t . 

What do you think this means? 

Here is our meaning: 

“We took a really close look at the two 
possible cases. If we can define will-stop?, 
then 

{will-stop? last-try) 
must yield either #t or #f. But it 
cannot due to the very definition of what 
will-stop? is supposed to do. This must 
mean that will-stop? cannot be defined.” 

Is this unique? 

Yes, it is. It makes will-stop? the first 
function that we can describe precisely but 
cannot define in our language. 

Is there any way around this problem? 

No. Thank you, 

Alan M. Turing (1912-1954) 
and 

Kurt Godel (1906-1978). 

What is (define ... ) 

This is an interesting question. We just saw 
that (define ...) doesn’t work for will-stop ?. 


... and Again, and Again, and Again, ... 
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So what are recursive definitions? Hold tight, take a deep breath, and plunge 

forward when you’re ready. 


Is this the function length It sure is. 

(define length 
(lambda (/) 

(cond 

((null? I ) 0) 

(else (addl (length (cdr l))))))) 


What if we didn’t have (define ...) Without (define ...) nothing, and especially 

anymore? Could we still define length not the body of length , could refer to length. 


What does this function do? 

(lambda (l) 

(cond 

((null ? 1) 0) 

(else (addl (eternity (cdr /)))))) 


It determines the length of the empty list 
and nothing else. 


What happens when we use it on a No answer. If we give eternity an argument, 

non-empty list? it gives no answer. 


What does it mean for this function that It just won’t give any answer for non-empty 

looks like length lists. 


Suppose we could name this new function. lengthy 

What would be a good name? because the function can only determine 

the length of the empty list. 


How would you write a function that 
determines the length of lists that contain 
one or fewer items? 


Well, we could try the following. 

(lambda (l) 

(cond 

((null? I ) 0) 

(else (addl (lengthy (cdr /)))))) 
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Almost, but (define ...) doesn’t work for 
lengthy 


So, replace lengthy by its definition. 


(lambda (/) 
(cond 

{(null? I ) 0) 
(else 
(addl 


((lambda (l) 
(cond 

{{null? I ) 0) 
(else {addl 


(cdr /)))))) 


{eternity {cdr /)))))) 


And what’s a good name for this function? That’s easy: lengths 

Is this the function that would determine the Yes, this is lengthy. We just replace eternity 

lenghts of lists that contain two or fewer with the next version of length. 

items? 



Now, what do you think recursion is? What do you mean? 


... and Again, and Again, and Again, ... 
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Well, we have seen how to determine the 
length of a list with no items, with no more 
than one item, with no more than two items, 
and so on. How could we get the function 
length back? 

If we could write an infinite function in the 
style of lengthy, lengths i, lengths, ... , then 
we could write lengthy, which would 
determine the length of all lists that we can 
make. 

How long are the lists that we can make? 

Well, a list is either empty, or it contains one 
element, or two elements, or three, or four, 

..., or 1001, .. . 

But we can’t write an infinite function. 

No, we can’t. 

And we still have all these repetitions and 
patterns in these functions. 

Yes, we do. 

What do these patterns look like? 

All these programs contain a function that 
looks like length. Perhaps we should abstract 
out this function: see The Ninth 
Commandment. 

Let’s do it! 

We need a function that looks just like length 
but starts with (lambda ( length) ... ). 

Do you mean this? 

Yes, that’s okay. It creates lengthy. 

((lambda ( length) 

(lambda (l) 

(cond 

{{null? 1 ) 0) 

(else {addl {length {cdr /))))))) 
eternity) 
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Rewrite length <1 in the same style. 


Do we have to use length to name the 
argument? 

How about length <2 


Close, but there are still repetitions. 


((lambda (/) 

(lambda (l) 

(cond 

{(null? 1) 0) 

(else (addl (f (cdr /))))))) 

((lambda (g) 

(lambda (/) 

(cond 

((null? 1) 0) 

(else (addl (g (cdr /))))))) 
eternity)) 


No, we just used / and g. As long as we are 
consistent, everything’s okay. 


((lambda (length) 

(lambda ( l) 

(cond 

((null? 1) 0) 

(else (addl (length (cdr l ))))))) 
((lambda (length) 

(lambda (l) 

(cond 

((null? 1) 0) 

(else (addl (length (cdr /))))))) 
((lambda (length) 

(lambda ( l) 

(cond 

((null? 1) 0) 

(else (addl (length (cdr l))))))) 
eternity))) 


True. Let’s get rid of them. 


Where should we start? Name the function that takes length as an 

argument and that returns a function that 
looks like length. 


... and Again, and Again, and Again, ... 
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What’s a good name for this function? 


How about mk-length for “make length ” ? 


Okay, do this to lengthy No problem. 

((lambda ( mk-length) 

(mk-length eternity)) 

(lambda ( length) 

(lambda (l) 

(cond 
{{null? 1) 0) 

(else (addl (length (cdr l)))))))) 


Is this length It sure is. And this is length <2. 


((lambda (mk-length) 


((lambda (mk-length) 

(mk-length 


(mk-length 

(mk-length eternity))) 


(mk-length 

(lambda (length) 


(mk-length eternity)))) 

(lambda (l) 


(lambda (length) 

(cond 


(lambda (l) 

{{null? 1) 0) 


(cond 

(else (addl (length (cdr l)))))))) 


((null? 1) 0) 



(else (addl (length (cdr l)))))))) 


Can you write length <3 in this style? Sure. Here it is. 

((lambda (mk-length) 

(mk-length 

(mk-length 

(mk-length 

(mk-length eternity))))) 

(lambda (length) 

(lambda (l) 

(cond 

{{null? 1) 0) 

(else (addl (length (cdr l)))))))) 


What is recursion like? 


It is like an infinite tower of applications of 
mk-length to an arbitrary function. 
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Do we really need an infinite tower? Not really of course. Everytime we use length 

we only need a finite number, but we never 
know how many. 

Could we guess how many we need? Sure, but we may not guess a large enough 

number. 

When do we find out that we didn’t guess a When we apply the function eternity that is 
large enough number? passed to the innermost mk-length. 

What if we could create another application That would only postpone the problem by 

of mk-length to eternity at this point? one, and besides, how could we do that? 

Well, since nobody cares what function we That’s the right idea. And then we invoke 

pass to mk-length we could pass it mk-length mk-length on eternity and the result of this 
initially. on the cdr so that we get one more piece of 

the tower. 


Then is this still lengthy 


Yes, we could even use mk-length instead of 



... and Again, and Again, and Again, ... 


165 











True: as long as we use the names And mk-length is a far more equal name than 

consistently, we are just fine. length. If we use a name like mk-length , it is 

a constant reminder that the first argument 
to mk-length is mk-length. 


Now that mk-length is passed to mk-length 
can we use the argument to create an 
additional recursive use? 


Yes, when we apply mk-length once, we get 
length <1 

((lambda ( mk-length) 

{mk-length mk-length)) 

(lambda ( mk-length) 

(lambda (l) 

(cond 

{{null? 1) 0) 

(else {addl 

{{mk-length eternity) 

(cdr l )))))))) 


What is the value of 


(((lambda ( mk-length) 

{mk-length mk-length)) 

(lambda ( mk-length) 

(lambda (/) 

(cond 

{{null? 1) 0) 

(else {addl 

{{mk-length eternity) 

udr mm 



where 

l is (apples) 


This is a good exercise. Work it out with 
paper and pencil. 


Could we do this more than once? 


Yes, just keep passing mk-length to itself, 
and we can do this as often as we need to! 
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What would you call this function? 



How does it work? 


One problem is left: it no longer contains the 
function that looks like length 


((lambda ( mk-length ) 
(mk-length mk-length)) 
(lambda ( mk-length) 
(lambda (l) 

(cond 
((null? I ) 0) 

(else (addl 


(( mk-length mk-length) 

U mm 


Can you fix that? 


Why? 


... and Again, and Again, and Again, ... 


It is length, of course. 


It keeps adding recursive uses by passing 
mk-length to itself, just as it is about to 
expire. 

We could extract this new application of 
mk-length to itself and call it length. 


Because it really makes the function length. 









How about this? 


Yes, this looks just fine. 



Let’s see whether it works. Okay. 

What is the value of It should be 1 . 

(((lambda ( mk-length) 

( mk-length mk-length)) 

(lambda ( mk-length) 

((lambda ( length) 

(lambda (l) 

(cond 
((null? I ) 0) 

(else ( addl (length (cdr l))))))) 

(mk-length mk-length)))) 

i) 

where 

l is (apples) 


First, we need the value of 

(mk-length mk-length)) 

(lambda (mk-length) 

((lambda (length) 

(lambda (l) 

(cond 
((null? 1) 0) 

(else (addl (length (cdr l))))))) 
(mk-length mk-length)))) 


((lambda (mk-length) 


That’s true, because the value of this 
expression is the function that we need to 
apply to l where 
l is (apples) 
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True enough. 


So we really need the value of 

((lambda ( mk-length) 

((lambda ( length) 

(lambda (l) 

(cond 

{{null? 1) 0) 

(else {addl {length {cdr /))))))) 
{mk-length mk-length))) 

(lambda ( mk-length) 

((lambda ( length) 

(lambda (/) 

(cond 

({null? I ) 0) 

(else {addl {length {cdr /))))))) 
{mk-length mk-length)))) 


But then we really need to know the value of 

((lambda {length) 

(lambda {l) 

(cond 

{{null? 1) 0) 

(else {addl {length {cdr l))))))) 
((lambda {mk-length) 

((lambda {length) 

(lambda (l) 

(cond 
{{null? 1) 0) 

(else {addl {length {cdr l))))))) 
{mk-length mk-length))) 

(lambda {mk-length) 

((lambda {length) 

(lambda (/) 

(cond 
{{null? 1) 0) 

(else {addl {length {cdr l))))))) 
{mk-length mk-length))))) 


Yes, that’s true, too. Where is the end of 
this? Don’t we also need to know the value 


of 


((lambda {length) 
(lambda (/) 
(cond 


{{null? 1) 0) 

(else {addl {length {cdr /))))))) 
((lambda {length) 

(lambda (/) 

(cond 
{{null? 1) 0) 

(else {addl {length {cdr l))))))) 
((lambda {mk-length) 

((lambda {length) 

(lambda (/) 

(cond 
{{null? 1) 0) 

(else {addl {length {cdr /))))))) 
{mk-length mk-length))) 

(lambda {mk-length) 

((lambda {length) 

(lambda (/) 

(cond 
{{null? 1) 0) 

(else {addl {length {cdr l))))))) 
{mk-length mk-length)))))) 


... and Again, and Again, and Again, ... 


169 




Yes, there is no end to it. Why? 


Because we just keep applying mk-length to 
itself again and again and again ... 


Is this strange? 


It is because mk-length used to return a 
function when we applied it to an argument. 
Indeed, it didn’t matter what we applied it 
to. 


But now that we have extracted No it doesn’t. So what do we do? 

[mk-length mk-length) 
from the function that makes length 
it does not return a function anymore. 


Turn the application of mk-length to itself in 
our last correct version of length into a 
function: 


((lambda ( mk-length) 
[mk-length mk-length)) 
(lambda ( mk-length) 
(lambda (/) 

(cond 
[[null? 1) 0) 

(else [addl 


[[mk-length mk-length) 


<cdr mm 


How? 


Here is a different way. If / is a function of Yes, it is. 
one argument, is (lambda (x) (/ x)) a 
function of one argument? 


If [mk-length mk-length) returns a function 
of one argument, does 

(lambda ( x) 

[[mk-length mk-length) x)) 
return a function of one argument? 


Actually, 

(lambda [x) 

[[mk-length mk-length) x)) 
is a function! 
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Okay, let’s do this to the application of 
mk-length to itself. 


Move out the new function so that we get 
length back. 


Is it okay to move out the function? 


((lambda ( mk-length) 
[mk-length mk-length)) 
(lambda ( mk-length) 

(lambda (l) 

(cond 

{(null? 1 ) 0) 

(else 

(addl _ 

(I (lambda ( x) 


(( mk-length mk-length) x)) 
(air *)))))))) 


((lambda ( mk-length) 
(mk-length mk-length)) 
(lambda ( mk-length) 


((lambda ( length) 

(lambda (/) 

(cond 

((null? 1 ) 0) 

(else 

(addl (length (cdr /))))))) 


(lambda ( x) 

(( mk-length mk-length) x))))) 


Yes, we just always did the opposite by 
replacing a name with its value. Here we 
extract a value and give it a name. 


Can we extract the function in the box that Yes, it does not depend on mk-length at all! 
looks like length and give it a name? 


... and Again, and Again, and Again, 


• • • 
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What did we actually get back? 


We extracted the original function mk-length 


Let’s separate the function that makes length 
from the function that looks like length 


Does this function have a name? 


That’s easy. 


(lambda ( le) 

((lambda ( mk-length) 
[mk-length mk-length)) 
(lambda ( mk-length) 

(le (lambda ( x) 


(( mk-length mk-length) x)))))) 


Yes, it is called the applicative-order Y 
combinator. 


(define Y 
(lambda (le) 

((lambda (/) (/ /)) 

(lambda (/) 

(ie (lambda (x) ((/ /) x))))))) 


Does (define ...) work again? 


Sure, now that we know what recursion is 


Do you now know why Y works? 


Read this chapter just one more time and 
you will. 
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What is (Y Y) 

Who knows, but it works very hard. 

Does your hat still fit? 

Perhaps not after such a mind stretcher. 


Stop the World—I Want to Get Off. 
Leslie Bricusse and Anthony Newley 


... and Again, and Again, and Again, ... 
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An entry is a pair of lists whose first list is a 
set. Also, the two lists must be of equal 
length. Make up some examples for entries. 

Here are our examples: 

((appetizer entree beverage) 

(pate boeuf vin)) 

and 

((appetizer entree beverage) 

(beer beer beer)) 

and 

((beverage dessert) 

((food is) (number one with us))). 

How can we build an entry from a set of 
names and a list of values? 


(define new-entry build) 


Try to build our examples with this function. 

What is (lookup-in-entry name entry ) 

where name is entree 

and 

entry is ((appetizer entree beverage) 

(food tastes good)) 

tastes. 

What if name is dessert 

In this case we would like to leave the 
decision about what to do with the user of 
lookup-in-entry . 

How can we accomplish this? 

lookup-in-entry takes an additional argument 
that is invoked when name is not found in 
the first list of an entry. 

How many arguments do you think this extra 
function should take? 

We think it should take one, name. Why? 


What Is the Value of All of This? 
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Here is our definition of lookup-in-entry 


(define lookup-in-entry 
(lambda (name entry entry-f) 
(lookup-in-entry-help name 
(first entry) 

(second entry) 
entry-f))) 


Finish the function lookup-in-entry-help 


(define lookup-in-entry-help 
(lambda (name names values entry-f) 

(cond 

((null? names) (entry-f name)) 
((eq? (car names) name) 

(car values)) 

(else (lookup-in-entry-help name 

(cdr names) 

(cdr values) 
entry-f))))) 


(define lookup-in-entry-help 
(lambda (name names values entry-f) 

(cond 


)») 


A table (also called an environment) is a list 
of entries. Here is one example: the empty 
table, represented by () 

Make up some others. 


Here is another one: 

(((appetizer entree beverage) 

(pate boeuf vin)) 

((beverage dessert) 

((food is) (number one with us)))) 


Define the function extend-table which takes 
an entry and a table (possibly the empty 
one) and creates a new table by putting the 
new entry in front of the old table. 


(define extend-table cons) 


What is It could be either spaghetti or tastes, but 

(lookup-in-table name table table-f) lookup-in-table searches the list of entries in 

where order. So it is spaghetti. 

name is entree 
table is (((entree dessert) 

(spaghetti spumoni)) 

((appetizer entree beverage) 

(food tastes good))) 

and 

table-f is (lambda (name) ...) 
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Write lookup-in-table 

Hint: Don’t forget to get some help. 

(define lookup-in-table 
(lambda (name table table-}) 

(cond 

((null? table) (table-} name)) 

(else (lookup-in-entry name 

(car table) 

(lambda (name) 
(lookup-in-table name 
(cdr table) 

table-/))))))) 



Can you describe what the following function 
represents: 

(lambda (name) 

(lookup-in-table name 
(cdr table) 
table-})) 

This function is the action to take when the 
name is not found in the first entry. 

In the preface we mentioned that sans serif 
typeface would be used to represent atoms. 

To this point it has not mattered. 

Henceforth, you must notice whether or not 
an atom is in sans serif. 

Remember to be very conscious as to whether 
or not an atom is in sans serif. 

Did you notice that “sans serif” was not in 
sans serif? 

We hope so. This is “sans serif’ 

in sans serif. 

Have we chosen a good representation for 
expressions? 

Yes. They are all S-expressions so they can 
be data for functions. 

What kind of functions? 

For example, value. 

Do you remember value from chapter 6? 

Recall that value is the function that returns 
the natural value of expressions. 

What is the value of 
(car (quote (a b c))) 

We don’t even know what (quote (a be)) is. 


What Is the Value of All of This? 
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It is the same as (a b c). 


What is the value of 
(cons rep-a 
(cons rep-b 
(cons rep-c 
(quote ())))) 

where 
rep-a is a 
rep-b is b 
and 

rep-c is c 

Great. And what is the value of It is a representation of the expression: 

(cons rep-car (car (quote (a b c))). 

(cons (cons rep-quote 

(cons 

(cons rep-a 
(cons rep-b 
(cons rep-c 
(quote ())))) 

(quote ()))) 

(quote ()))) 

where 

rep-car is car 
rep-quote is quote 
rep-a is a 
rep-b is b 
and 

rep-c is c 

What is the value of a * 

(car (quote (a b c))) 

What is (value e) a * 

where 

e is (car (quote (a b c))) 

What is ( value e) (car (quote (a b c))). 

where 

e is (quote (car (quote (a b c)))) 
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What is (value e) 
where 

e is (addl 6) 

7. 

What is (value e) 
where e is 6 

6 , because numbers are constants. 

What is (value e) 
where 

e is (quote nothing) 

nothing. 

What is (value e) 
where 

e is nothing 

nothing has no value. 

What is (value e) 
where 

e is ((lambda (nothing) 

(cons nothing (quote ()))) 

(quote 

(from nothing comes something))) 

((from nothing comes something)). 

What is (value e) 
where 

e is ((lambda (nothing) 

(cond 

(nothing (quote something)) 

(else (quote nothing)))) 

#t) 

something. 

What is the type of e 
where 
e is 6 

*const. 

What is the type of e 
where 
e is #f 

*const. 


What Is the Value of All of This? 
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What is (value e) 
where 
e is #f 

#f. 

What is the type of e 
where e is cons 

* const. 

What is (value e) 
where e is car 

(primitive car). 

What is the type of e 
where 

e is (quote nothing) 

*quote. 

What is the type of e 
where 

e is nothing 

*identifier. 

What is the type of e 
where 

e is (lambda (x y) (cons x y)) 

*lambda. 

What is the type of e 
where 

e is ((lambda (nothing) 

(cond 

(nothing (quote something)) 

(else (quote nothing)))) 

#t) 

*application. 

What is the type of e 
where 

e is (cond 

(nothing (quote something)) 

(else (quote nothing))) 

*cond. 
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How many types do you think there are? We found six: 

*const 
*quote 
*identi fier 
*lambda 
*cond 
and 

*application . 


How do you think we should represent types? We choose functions. We call these functions 

“actions.” 


If actions are functions that do “the right You guessed it. It would have to find out the 

thing” when applied to the appropriate type type of expression it was passed and then use 

of expression, what should value do? the associated action. 


Do you remember atom-to-function from We found atom-to-function useful when we 

chapter 8? rewrote value for numbered expresssions. 


Below is a function that produces the correct 
action (or function) for each possible 
S-expression: 

(define expression-to-action 
(lambda (e) 

(cond 

{{atom? e) {atom-to-action e)) 

(else {list-to-action e))))) 

Define the function atom-to-action 1 


1 Ill-formed S-expressions such as (quote a b), (), 

(lambda (#t) #t), (lambda (5) 5), (lambda (car) car), 
(lambda a), (cond (3 c) (else b) (6 a)), and (1 2) are not 
considered here. They can be detected by an appropriate 
function to which S-expressions are submitted before they 
are passed on to value. 


(define atom-to-action 

(lambda (e) 

(cond 

{{number? e) *const) 

{{eq? e #t) * const) 

{{eq? e #f) *const) 

{{eq? e (quote cons)) * const) 
{{eq? e (quote car)) *const) 

{{eq? e (quote cdr)) *const) 

{{eq? e (quote null?)) *const) 
{{eq? e (quote eq?)) *const) 

{{eq? e (quote atom?)) *const) 
{{eq? e (quote zero?)) *const) 
{{eq? e (quote addl)) *const) 
{{eq? e (quote subl)) *const) 
{{eq? e (quote number?)) *const) 
(else * identifier)))) 


What Is the Value of All of This? 
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Now define the help function list-to-action 


(define list-to-action 
(lambda (e) 

(cond 

{{atom? {car e)) 

(cond 

{{eq? {car e) (quote quote)) 

*quote) 

{{eq? {car e) (quote lambda)) 
*lambda) 

{{eq? {car e) (quote cond)) 
*cond) 

(else *application))) 

(else *application)))) 


Assuming that expression-to-action works, 
we can use it to define value and meaning 

(define value 
(lambda (e) 

{meaning e (quote ())))) 



It is the empty table. The function value , 
together with all the functions it uses, is 
called an interpreter. 


* The function value approximates the function aval 
available in Scheme (and Lisp). 



How many arguments should actions take Two, the expression e and a table, 

according to the above? 


182 


Chapter 10 








Here is the action for constants. 


(define *const 
(lambda (e table) 

(cond 

((number? e) e) 

((eq? e #t) #t) 

((eq? e #f) #f) 

(else (build (quote primitive) e))))) 


Yes, for numbers, it just returns the 
expression, and this is all we have to do for 
0 , 1 , 2 , ... 

For #t, it returns true. 

For #f, it returns false. 

And all other atoms of constant type 
represent primitives. 


Is it correct? 


Here is the action for *quote 



Define the help function text-of 


Have we used the table yet? 


No, but we will in a moment. 


Why do we need the table? 


To remember the values of identifiers 


Given that the table contains the values of 
identifiers, write the action identifier 


(define *identifier 
(lambda (e table) 

(lookup-in-table e table initial-table))) 


Here is initial-table 


Let’s hope never. Why? 


(define initial-table 
(lambda (name) 
(car (quote ())))) 


When is it used? 


What is the value of (lambda (x) x) 


We don’t know yet, but we know that it 
must be the representation of a non-primitive 
function. 


What Is the Value of All of This? 
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How are non-primitive functions different 
from primitives? 

We know what primitives do; non-primitives 
are defined by their arguments and their 
function bodies. 

So when we want to use a non-primitive we 
need to remember its formal arguments and 
its function body. 

At least. Fortunately this is just the cdr of a 
lambda expression. 

And what else do we need to remember? 

We will also put the table in, just in case we 
might need it later. 

And how do we represent this? 

In a list, of course. 


Here is the action *lambda 

(define *lambda 
(lambda (e table) 

(build (quote non-primitive) 
(cons table (cdr e))))) 

What is ( meaning e table) 
where 

e is (lambda (x) (cons x y)) 
and 

table is (((y z) ((8) 9 ))) 


(non-primitive 


( (((y z) ((8) 9))) 



(cons x y) )) 



11 i s probably a good idea t o define some 
help functions for getting back the parts in 
this three element list (i.e., the table, the 
formal arguments, and the body). Write 
table-of formats-of and body-of 

I (define body-of third) 


(define table-of first) 


(define formals-of second) 


Describe (cond ...) in your own words. It is a special form that takes any number of 

cond-lines. It considers each line in turn. If 
the question part on the left is false, it looks 
at the rest of the lines. Otherwise it proceeds 
to answer the right part. If it sees an 
else-line, it treats that cond-line as if its 
question part were true. 
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Write else? and the help functions 
question-of and answer-of 



Aren’t these help functions useful? Yes, they make things quite a bit more 

readable. But you already knew that. 


Do you understand *cond now? 


Perhaps not. 


How can you become familiar with it? The best way is to try an example. A good 

one is: 

(*cond e table) 
where 

e is (cond (coffee klatsch) (else party)) 
and 

table is (((coffee) (#t)) 

((klatsch party) (5 (6)))). 


What Is the Value of All of This? 
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Have we seen how the table gets used? 

Yes, * lambda and * identifier use it. 

But how do the identifiers get into the table? 

In the only action we have not defined: 

*application . 

How is an application represented? 

An application is a list of expressions whose 
car position contains an expression whose 
value is a function. 

How does an application differ from a special 
form, like (and ...) (or ...) or (cond ...) 

An application must always determine the 
meaning of all its arguments. 

Before we can apply a function, do we have 
to get the meaning of all of its arguments? 

Yes. 


Write a function evlis that takes a list of 
(representations of) arguments and a table, 
and returns a list composed of the meaning 
of each argument. 


(define evlis 
(lambda (args table) 

(cond 

((null? args ) (quote ())) 

(else 

(cons (meaning (car args) table) 
(evlis (cdr args) table)))))) 


What else do we need before we can 
determine the meaning of an application? 

We need to find out what its function-of 
means. 

And what then? 

Then we apply the meaning of the function 


to the meaning of the arguments. 

Here is *application 

Of course. We just have to define apply , 


function-of , and arguments-of correctly. 

(define * application 


(lambda (e table) 


(apply 


(meaning (function-of e) table) 


(evlis (arguments-of e) table)))) 


Is it correct? 



186 


Chapter 10 















Write function-of and arguments-of 


(define function-of car) 


(define arguments-of cdr) 


How many different kinds of functions are Two: primitives and non-primitives, 

there? 


What are the two representations of (primitive primitive-name) and 

functions? (non-primitive (table formats body)) 

The list (table formats body) is called a 
closure record. 


Write primitive? and non-primitive? 


(define primitive? 

(lambda (l) 

( eq? (first l) (quote primitive)))) 


(define non-primitive? 

(lambda (l) 

(eq? (first l) (quote non-primitive)))) 


Now we can write the function apply Here it is: 

(define apply 1 
(lambda (fun vals) 

(cond 

((primitive? fun) 

( apply-primitive 
(second fun) vals)) 
((non-primitive? fun) 
(apply-closure 
(second fun) vals))))) 


\ifun does not evaluate to either a primitive ora 
non-primitive as in the expression ((lambda (x) (x 5)) 3), 
there is no answer. The function apply approximates the 
function apply available in Scheme (and Lisp). 


What Is the Value of All of This? 
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This is the definition of apply-primitive 


(define apply-primitive 
(lambda (name vals) 


(cond 

{(eq\ 


9 


name 


1 


(cons (first vals) (second vals))) 
(( eq? name (quote car)) 

(car (first vals))) 

({eq? name (quote cdr)) 


2 


(first vals))) 


((eq? name (quote null?)) 
(null? (first vals))) 

((eq? name (quote eq?)) 


3 


(first vals) 


4 


)) 


((eq? name (quote atom?)) 


5 


(first vals))) 


((eq? name (quote zero?)) 
(zero? (first vals))) 

((eq? name (quote addl)) 
(addl (first vals))) 

((eq? name (quote subl)) 

(subl (first vals))) 

((eq? name (quote number?)) 
(number? (first vals)))))) 


Fill in the blanks. 


1. (quote cons) 

2. cdr 1 


3. eq? 

4. (second vals) 

5. ; atom? 


(define :atom? 
(lambda (x) 
(cond 


((atom? x) #t) 

((null? x) #f) 

((eq? (car x) (quote primitive)) 

#t) 

((eq? (car x) (quote non-primitive)) 

#t) 

(else #f)))) 


The function apply-primitive could check for applications 
of cdr to the empty list or subl to 0, etc. 


Is apply-closure the only function left? 


Yes, and apply-closure must extend the table 


How could we find the result of (f a b) 
where 

f is (lambda (x y) (cons x y)) 
a is 1 
and 
b is (2) 


That’s tricky. But we know what to do to 
find the meaning of 
(cons x y) 
where 

table is (((x y) 


(1 ( 2 ))))- 


Why can we do this? 


Here, we don’t need apply-closure. 
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Can you generalize the last two steps? 

i 

Applying a non-primitive function—a 
closure—to a list of values is the same as 
finding the meaning of the closure’s body 
with its table extended by an entry of the 
form 

(formats values) 

In this entry, formats is the formats of the 
closure and values is the result of evlis. 

Have you followed all this? 

If not, here is the definition of apply-closure. 


(define apply-closure 
(lambda ( closure vats) 

(meaning (body-of closure) 
(extend-table 
(new-entry 
(formals-of closure) 
vats) 

(table-of closure))))) 



This is a complicated function and it 
deserves an example. 

In the following, 
closure is ((((u v w) 

(1 2 3)) 

((x y z) 

(4 5 6))) 

(xy) 

(cons z x)) 

and 

vals is ((a b c) (d e f)). 

What will be the new arguments of meaning 

The new e for meaning will be (cons z x) and 
the new table for meaning will be 

(((x y) 

((a b c) (d e f))) 

((u V w) 

(1 2 3)) 

((x y z) 

(4 5 6))). 
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What is the meaning of ( cons z x) 

where z is 6 

and 

x is (a b c) 

The same as 

{meaning e table) 
where 

e is (cons z x) 
and 

table is (((x y) 

((a b c) (d e f))) 

((u V w) 

(12 3)) 

((* y 2 ) 

(4 5 6))). 

Let’s find the meaning of all the arguments. 

In order to do this, we must find both 

What is 

{meaning e table) 

(evlis args table) 

where 

where 

e is z 

args is (z x) 

and 

and 

{meaning e table) 

table is (((x y) 

where 

((a b c) (d e f))) 

e is x. 

((u V w) 


(1 2 3)) 


((* y z) 


(4 5 6))) 



What is the {meaning e table) 
where e is z 

6, by using *identifier. 

What is {meaning e table) 
where e is x 

(a be), by using * identifier. 

So, what is the result of evlis 

(6 (a b c)), because evlis returns a list of the 
meanings. 

What is {meaning e table) 
where e is cons 

(primitive cons), by using *const. 
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We are now ready to ( apply fun vals) 
where 

fun is (primitive cons) 
and 

vals is (6 (a b c)) 

Which path should we take? 

The apply-primitive path. 

Which cond-line is chosen for 
( apply-primitive name vals) 
where 

name is cons 
and 

vals is (6 (a be)) 

The third; 

(( eq? name (quote cons)) 

(cons (first vals ) (second vals))). 

Are we finished now? 

Yes, we are exhausted. 

But what about (define ... ) 

It isn’t needed because recursion can be 
obtained from the Y combinator. 

Is (define ...) really not needed? 

Yes, but see The Seasoned Schemer. 

Does that mean we can run the interpreter 
on the interpreter if we do the 
transformation with the Y combinator? 

Yes, but don’t bother. 

What makes value unusual? 

It sees representations of expressions. 

Should will-stop ? see representations of 
expressions? 

That may help a lot. 

Does it help? 

No, don’t bother—we can play the same 
game again. We would be able to define a 
function like last-try? that will show that we 
cannot define the new and improved 
will-stop ?. 

else 

Yes, it’s time for a banquet. 
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You’ve reached the intermission. What are your options? You could quickly run out and get the 
rest of the show, The Seasoned Schemer, or you could read some of the books that we mention 
below. All of these books are classics and some of them are quite old; nevertheless they have 
stood the test of time and are all worthy of your notice. Some have nothing whatsoever to do 
with mathematics or logic, some have to do with mathematics, but only by way of telling an 
interesting story, and still others are just worth discovering. There should be no confusion: these 
books are not here to prepare you to read the sequel, they are just for your entertainment. At 
the end of The Seasoned Schemer you can find a set of references to Scheme and the reference 
to Common Lisp. Do not feel obliged to jump ahead to the next book. Take some time off and 
read some of these books instead. Then, when you have relaxed a bit, perhaps removed some 
of the calories that were foisted upon you, go ahead and dive into the sequel. Enjoy! 

Abbott, Edwin A. Flatland. Dover Publications, Inc., New York, 1952. (Original publica¬ 
tion: Seeley and Co., Ltd., London, 1884.) 

Carroll, Lewis. The Annotated Alice: Alice’s Adventures in Wonderland and Through the 
Looking Glass. Clarkson M. Potter, Inc., New York, 1960. Introduction and notes by 
Martin Gardner. Original publications under different titles: Alice’s Adventures Under 
Ground and Through the Looking Glass and What Alice Found There, Macmillan and 
Company, London 1865 and 1872, respectively. 

Halmos, Paul R. Naive Set Theory. Litton Educational Publishers, New York, 1960. 

Hein, Piet. Grooks. The MIT Press, Cambridge, Massachusetts, 1960. 

Hofstadter, Douglas R. Godel, Escher, Bach: an Eternal Golden Braid. Basic Books, Inc., 
New York, 1979. 

Nagel, Ernest and James R. Newman. Godel’s Proof. New York University Press, New 
York, 1958. 

Polya, Gyorgy. How to Solve It. Doubleday and Co., New York, 1957. 

Smullyan, Raymond. To Mock a Mockingbird And Other Logic Puzzles Including an 
Amazing Adventure in Combinatory Logic. Alfred A. Knopf, Inc., New York, 1985. 

Suppes, Patrick. Introduction to Logic. Van Nostrand Co., Princeton, New Jersey, 1957. 
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